2005-04-24 08:51:33 +00:00
|
|
|
|
2005-05-15 06:03:55 +00:00
|
|
|
import System.Plugins.Make
|
|
|
|
import System.Eval.Haskell
|
2005-04-24 08:51:33 +00:00
|
|
|
|
|
|
|
main = do make "a/Extra.hs" []
|
|
|
|
|
|
|
|
i <- unsafeEval_ "show (Just (1 + 6 :: Int)) ++ extra"
|
|
|
|
["Data.Maybe", "Extra"]
|
|
|
|
["-ia"] -- no make flags
|
|
|
|
[] -- no package.confs
|
|
|
|
["a"] -- include paths to load from
|
|
|
|
:: IO (Either [String] String)
|
|
|
|
|
|
|
|
case i of
|
|
|
|
Right i -> putStrLn $ show i
|
|
|
|
Left es -> mapM_ putStrLn es
|