shaniqua-plugins/testsuite/pdynload/should_fail0/prog/Main.hs

import System.Plugins
import API

src     = "../Plugin.hs"
wrap    = "../Wrapper.hs"
apipath = "../api"

main = do status <- make src ["-i"++apipath]
          case status of
                MakeSuccess _ _ -> f
                MakeFailure e -> mapM_ putStrLn e
    where 
       f = do v <- pdynload "../Plugin.o" ["../api"] [] "API.Interface" "resource"
              case v of
                LoadSuccess _ a  -> putStrLn "loaded .. yay!"
                _              -> putStrLn "wrong types"