X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FHandle%2FInternals.hs;fp=GHC%2FIO%2FHandle%2FInternals.hs;h=92712960804bcf4ff631979a372d07a8b0c1464e;hb=81b217b104feb963e00537a51e6b3dfee8163b86;hp=844c8c6eeea281f39b5625ecf87b6f89a2f7e797;hpb=bad25ed6cb9b939d786e53d3074f0cd4f869af28;p=ghc-base.git

diff --git a/GHC/IO/Handle/Internals.hs b/GHC/IO/Handle/Internals.hs
index 844c8c6..9271296 100644
--- a/GHC/IO/Handle/Internals.hs
+++ b/GHC/IO/Handle/Internals.hs
@@ -70,7 +70,7 @@ import GHC.MVar
 import Data.Typeable
 import Control.Monad
 import Data.Maybe
-import Foreign
+import Foreign hiding (unsafePerformIO)
 -- import System.IO.Error
 import System.Posix.Internals hiding (FD)