16 lines
368 B
Haskell
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
|