2005-05-15 06:03:55 +00:00

16 lines
368 B
Haskell

{-# OPTIONS -cpp #-}
#include "../../../../config.h"
import System.Plugins
import API
main :: IO ()
main = do
m_v <- load "../TestIO.o" ["../api"] [] "resource"
v <- case m_v of
LoadFailure _ -> error "load failed"
LoadSuccess _ v -> return v
s <- field v
if null s then print False else print True