13 lines
411 B
Haskell
Raw Normal View History

2005-04-24 08:51:33 +00:00
import System.Plugins
2005-04-24 08:51:33 +00:00
import API
main = do
m_v <- dynload "../TestIO.o" ["../api"]
["../../../../plugins.conf.inplace"] "resource_dyn"
case m_v of
LoadFailure _ -> error "couldn't compile"
LoadSuccess _ v -> do
s <- field v
if s /= [] then print True else print False