14 lines
329 B
Haskell
14 lines
329 B
Haskell
|
|
import System.Plugins
|
|
|
|
import API
|
|
|
|
main = do
|
|
m_v <- dynload "../TestIO.o" ["../api"]
|
|
[] "resource_dyn" :: IO (LoadStatus TestIO)
|
|
case m_v of
|
|
LoadFailure _ -> error "couldn't link"
|
|
LoadSuccess _ v -> do
|
|
s <- field v
|
|
if s /= "" then print True else print False
|