21 lines
442 B
Haskell
Raw Normal View History

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