[project @ 2003-03-31 15:36:24 by ross]

[ghc-base.git] / System / IO / Error.hs

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index 6874ac9..3253894 100644 (file)
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -254,7 +254,7 @@ ioeSetHandle      ioe hdl      = ioe{ ioe_handle = Just hdl }
 ioeSetFileName    ioe filename = ioe{ ioe_filename = Just filename }
 
 modifyIOError :: (IOError -> IOError) -> IO a -> IO a
-modifyIOError f io = GHC.Exception.catch io (\e -> ioError (f e))
+modifyIOError f io = catch io (\e -> ioError (f e))
 
 -- -----------------------------------------------------------------------------
 -- annotating an IOError