Use FilePath instead of String
authorAlexandre Peyroux <alex@px.io>
Fri, 26 Apr 2019 08:04:54 +0000 (10:04 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sat, 27 Apr 2019 17:14:20 +0000 (19:14 +0200)
System/Posix/DynamicLinker.hsc

index 656054c..b484f5d 100644 (file)
@@ -65,8 +65,8 @@ dlopen path flags = do
   withFilePath path $ \ p -> do
     liftM DLHandle $ throwDLErrorIf "dlopen" (== nullPtr) $ c_dlopen p (packRTLDFlags flags)
 
-withDL :: String -> [RTLDFlags] -> (DL -> IO a) -> IO a
+withDL :: FilePath -> [RTLDFlags] -> (DL -> IO a) -> IO a
 withDL file flags f = bracket (dlopen file flags) (dlclose) f
 
-withDL_ :: String -> [RTLDFlags] -> (DL -> IO a) -> IO ()
+withDL_ :: FilePath -> [RTLDFlags] -> (DL -> IO a) -> IO ()
 withDL_ file flags f = withDL file flags f >> return ()