2005-04-24 08:51:33 +00:00
|
|
|
--
|
|
|
|
|
-- Test if we can load a module with a hierarchical name from some weird
|
|
|
|
|
-- path. Tests our the module name handling in the .hi file parser.
|
|
|
|
|
--
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
module Main where
|
|
|
|
|
|
2005-05-15 06:03:55 +00:00
|
|
|
import System.Plugins
|
2005-04-24 08:51:33 +00:00
|
|
|
|
|
|
|
|
main = do
|
|
|
|
|
status <- load "../A/B/C/Module.o" [".."] [] "symbol"
|
|
|
|
|
case status of
|
|
|
|
|
LoadFailure ers -> mapM_ putStrLn ers
|
|
|
|
|
LoadSuccess _ v -> print (v :: String)
|
