From 389820b2bcdc32be728e05fd98b69382f9c55721 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 25 Apr 2012 10:41:38 +0100
Subject: [PATCH] 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
--
GitLab