diff options
author | Ross Paterson <ross@soi.city.ac.uk> | 2010-09-09 12:54:59 +0000 |
---|---|---|
committer | Ross Paterson <ross@soi.city.ac.uk> | 2010-09-09 12:54:59 +0000 |
commit | c1950fae81626d05a75983c9968f692180460802 (patch) | |
tree | 3e18c55e7ba8b6f46dd3632938712ebb9730cafa | |
parent | efddbac1b0e9fd4e016f459d695d37ce5a955555 (diff) |
avoid Foreign.unsafePerformIO
-rw-r--r-- | System/Posix/Files.hsc | 2 | ||||
-rw-r--r-- | System/Posix/Signals.hsc | 3 | ||||
-rw-r--r-- | System/Posix/User.hsc | 3 |
3 files changed, 5 insertions, 3 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index bb24234..ab10189 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -91,7 +91,7 @@ import System.Posix.Types import System.IO.Unsafe import Data.Bits import System.Posix.Internals -import Foreign +import Foreign hiding (unsafePerformIO) import Foreign.C -- ----------------------------------------------------------------------------- diff --git a/System/Posix/Signals.hsc b/System/Posix/Signals.hsc index 454b0dd..2d23c2a 100644 --- a/System/Posix/Signals.hsc +++ b/System/Posix/Signals.hsc @@ -99,8 +99,9 @@ module System.Posix.Signals ( -- siginterrupt ) where -import Foreign +import Foreign hiding (unsafePerformIO) import Foreign.C +import System.IO.Unsafe (unsafePerformIO) import System.Posix.Types import System.Posix.Internals import System.Posix.Process diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index 6c631d5..5db9146 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -48,7 +48,8 @@ module System.Posix.User ( #include "HsUnix.h" import System.Posix.Types -import Foreign +import Foreign hiding (unsafePerformIO) +import System.IO.Unsafe (unsafePerformIO) import Foreign.C import System.Posix.Internals ( CGroup, CPasswd ) |