2005-04-24 08:51:33 +00:00

22 lines
430 B
Haskell

--
-- Test multiple plugins
--
module Main where
import Plugins
import API
import Modules.Flags as Flags
rec = Flags.FlagRec { Flags.f1 = 4, Flags.f2 = 10 }
main = do
status <- load "../Plugin.o" ["../api",".."] [] "resource"
case status of
LoadFailure _ -> error "load failed"
LoadSuccess _ v -> do let func = dbFunc v
print (func rec)