testsuite/tests/ghc-regress/rts/T2615.hs


1
2
3
4
5
6
7
8
9

import ObjLink

library_name = "libfoo_script_T2615.so" -- this is really a linker script

main = do
  result <- loadDLL library_name
  case result of
    Nothing -> putStrLn (library_name ++ " loaded successfully")
    Just x  -> putStrLn ("error: " ++ x)