18 lines
495 B
Haskell
Raw Permalink Normal View History

2005-04-24 08:51:33 +00:00
{-# OPTIONS -cpp #-}
#include "../../../../config.h"
import System.Plugins
2005-04-24 08:51:33 +00:00
import API
main = do
m_v <- dynload "../Plugin.o" ["../api"]
[]
2005-04-24 08:51:33 +00:00
"resource_dyn"
case m_v of
LoadFailure _ -> error "didn't compile"
LoadSuccess _ (Interface eq) -> do
putStrLn $ show $ 1 `eq` 2
putStrLn $ show $ 'a' `eq` 'b'