17 lines
570 B
Haskell
Raw Normal View History

2005-04-24 08:51:33 +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