blob: a7aa5dd40d9252e30eb6f48b7339f5f67ae93bc9 (
plain)
1
2
3
4
5
6
7
8
9
10
|
import GHCi.ObjLink
library_name = "libfoo_script_T2615.so" -- this is really a linker script
main = do
initObjLinker RetainCAFs
result <- loadDLL library_name
case result of
Nothing -> putStrLn (library_name ++ " loaded successfully")
Just x -> putStrLn ("error: " ++ x)
|
