X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO.hs;h=ab5b3194063d5c326d01212e0dc8356b9e98cf28;hb=a3e56f82973d7117fe4544e5702d1c0180ae7d79;hp=b3d590a02d455ee733c4f861f154a7da50a30590;hpb=13e2f599e470e1ea2025b5f97258b8489285e800;p=haskell-directory.git

diff --git a/GHC/IO.hs b/GHC/IO.hs
index b3d590a..ab5b319 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -43,7 +43,7 @@ import GHC.Real
 import GHC.Num
 import GHC.Show
 import GHC.List
-import GHC.Exception    ( ioError, catch, throw )
+import GHC.Exception    ( ioError, catch )
 import GHC.Conc
 
 -- ---------------------------------------------------------------------------
@@ -199,7 +199,7 @@ maybeFillReadBuffer fd is_line is_stream buf
      )
      (\e -> do if isEOFError e 
 		  then return Nothing 
-		  else throw e)
+		  else ioError e)
 
 
 unpack :: RawBuffer -> Int -> Int -> IO [Char]