20 lines
496 B
Haskell
Raw Normal View History

2005-04-24 08:51:33 +00:00
import System.Plugins
-- import System.Plugins.Utils
2005-04-24 08:51:33 +00:00
import API
src = "../Plugin.hs"
wrap = "../Wrapper.hs"
apipath = "../api"
main = do status <- make src ["-i"++apipath]
case status of
MakeSuccess _ _ -> f
MakeFailure e-> mapM_ putStrLn e
where f = do v <- load "../Plugin.o" ["../api"] [] "resource"
-- (i,_) <- exec "ghc" ["--numeric-version"]
-- mapM_ putStrLn i
putStrLn "done."