@@ -35,7 +35,7 @@ data DynamicLib = Lib { lib_name :: String
35tryLoadLib :: String -> IO (Maybe DynamicLib)
35tryLoadLib :: String -> IO (Maybe DynamicLib)
36tryLoadLib lib = do exactName <- doesFileExist lib
36tryLoadLib lib = do exactName <- doesFileExist lib
37 let filename = if exactName then lib else lib ++ "." ++ hostDynamicLibExt
37 let filename = if exactName then lib else lib ++ "." ++ hostDynamicLibExt
38− handle <- dlopen filename [RTLD_NOW]
38+ handle <- dlopen filename [RTLD_NOW, RTLD_GLOBAL]
39 if undl handle == nullPtr
39 if undl handle == nullPtr
40 then return Nothing
40 then return Nothing
41 else return . Just $ Lib lib handle
41 else return . Just $ Lib lib handle