[commit: unix] master: use Control.Monad.void instead of Foreign.void (which is now deprecated) (389820b)
Simon Marlow
marlowsd at gmail.com
Wed Apr 25 15:08:30 CEST 2012
Repository : ssh://darcs.haskell.org//srv/darcs/packages/unix
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/389820b2bcdc32be728e05fd98b69382f9c55721
>---------------------------------------------------------------
commit 389820b2bcdc32be728e05fd98b69382f9c55721
Author: Simon Marlow <marlowsd at gmail.com>
Date: Wed Apr 25 10:41:38 2012 +0100
use Control.Monad.void instead of Foreign.void (which is now deprecated)
>---------------------------------------------------------------
System/Posix/ByteString/FilePath.hsc | 3 ++-
System/Posix/Error.hs | 3 ++-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/System/Posix/ByteString/FilePath.hsc b/System/Posix/ByteString/FilePath.hsc
index 55cd16a..f3ecd3c 100644
--- a/System/Posix/ByteString/FilePath.hsc
+++ b/System/Posix/ByteString/FilePath.hsc
@@ -29,7 +29,7 @@ module System.Posix.ByteString.FilePath (
throwErrnoPathIfMinus1_
) where
-import Foreign
+import Foreign hiding ( void )
import Foreign.C hiding (
throwErrnoPath,
throwErrnoPathIf,
@@ -38,6 +38,7 @@ import Foreign.C hiding (
throwErrnoPathIfMinus1,
throwErrnoPathIfMinus1_ )
+import Control.Monad
import Data.ByteString
import Data.ByteString.Char8 as BC
import Prelude hiding (FilePath)
diff --git a/System/Posix/Error.hs b/System/Posix/Error.hs
index 73988dc..7c68941 100644
--- a/System/Posix/Error.hs
+++ b/System/Posix/Error.hs
@@ -28,8 +28,9 @@ module System.Posix.Error (
throwErrnoPathIfMinus1Retry_
) where
-import Foreign
+import Foreign hiding (void)
import Foreign.C
+import Control.Monad
throwErrnoPathIfMinus1Retry :: (Eq a, Num a)
=> String -> FilePath -> IO a -> IO a
More information about the Cvs-libraries
mailing list