12 lines
264 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 <- load_ "../Test.o" ["../api"] "resource"
v <- case m_v of
LoadFailure _ -> error "load failed"
LoadSuccess _ v -> return v
let s = field v
print s