2005-05-15 06:03:55 +00:00
|
|
|
import System.Plugins
|
2005-04-24 08:51:33 +00:00
|
|
|
import API
|
|
|
|
|
|
|
|
|
|
main = do
|
|
|
|
|
let plist = ["../Plugin1.o", "../Plugin2.o", "../Plugin3.o"]
|
|
|
|
|
plugins <- mapM (\p -> load p ["../api"] [] "resource") plist
|
|
|
|
|
let functions = map (valueOf . fromLoadSuc) plugins
|
|
|
|
|
|
|
|
|
|
-- apply the function from each plugin in turn
|
|
|
|
|
mapM_ (\f -> putStrLn $ f "haskell is for hackers") functions
|
|
|
|
|
|
|
|
|
|
fromLoadSuc (LoadFailure _) = error "load failed"
|
|
|
|
|
fromLoadSuc (LoadSuccess _ v) = v
|
