2005-04-24 08:51:33 +00:00
|
|
|
module Main where
|
|
|
|
|
|
2005-05-15 06:03:55 +00:00
|
|
|
import System.Plugins
|
2005-04-24 08:51:33 +00:00
|
|
|
|
|
|
|
|
main = do
|
|
|
|
|
|
|
|
|
|
makeAll "A.hs" []
|
|
|
|
|
|
|
|
|
|
y <- load "A.o" ["."] [] "u"
|
|
|
|
|
case y of
|
|
|
|
|
LoadSuccess _ _ -> putStrLn $ "YES"
|
|
|
|
|
LoadFailure e -> mapM_ putStrLn e
|
