X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FMarshal%2FError.hs;h=5bc2f34e80ab78d9d82460544b66bea013fcb5cb;hb=d2063b5b0be014545b21819172c87756efcb0b0c;hp=ce6336e223075118854ebc56ab35e3c985e82ace;hpb=aaf764b3ad8b1816d68b5f27299eac125f08e1a5;p=ghc-base.git

diff --git a/Foreign/Marshal/Error.hs b/Foreign/Marshal/Error.hs
index ce6336e..5bc2f34 100644
--- a/Foreign/Marshal/Error.hs
+++ b/Foreign/Marshal/Error.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Foreign.Marshal.Error
@@ -18,9 +18,9 @@ module Foreign.Marshal.Error (
   throwIf,       -- :: (a -> Bool) -> (a -> String) -> IO a       -> IO a
   throwIf_,      -- :: (a -> Bool) -> (a -> String) -> IO a       -> IO ()
   throwIfNeg,    -- :: (Ord a, Num a) 
-	         -- =>                (a -> String) -> IO a       -> IO a
+                 -- =>                (a -> String) -> IO a       -> IO a
   throwIfNeg_,   -- :: (Ord a, Num a)
-	         -- =>                (a -> String) -> IO a       -> IO ()
+                 -- =>                (a -> String) -> IO a       -> IO ()
   throwIfNull,   -- ::                String        -> IO (Ptr a) -> IO (Ptr a)
 
   -- Discard return value
@@ -37,7 +37,8 @@ import System.IO.Error
 #endif
 import GHC.Base
 import GHC.Num
-import GHC.IOBase
+import GHC.IO
+import GHC.IO.Exception
 #endif
 
 -- exported functions
@@ -47,11 +48,11 @@ import GHC.IOBase
 -- 'True' when applied to the result returned by the 'IO' action.
 -- If no exception is raised, return the result of the computation.
 --
-throwIf :: (a -> Bool)	-- ^ error condition on the result of the 'IO' action
-	-> (a -> String) -- ^ computes an error message from erroneous results
-			-- of the 'IO' action
-	-> IO a		-- ^ the 'IO' action to be executed
-	-> IO a
+throwIf :: (a -> Bool)  -- ^ error condition on the result of the 'IO' action
+        -> (a -> String) -- ^ computes an error message from erroneous results
+                        -- of the 'IO' action
+        -> IO a         -- ^ the 'IO' action to be executed
+        -> IO a
 throwIf pred msgfct act  = 
   do
     res <- act