From: ross <unknown>
Date: Mon, 31 Mar 2003 15:36:24 +0000 (+0000)
Subject: [project @ 2003-03-31 15:36:24 by ross]
X-Git-Tag: nhc98-1-18-release~708
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fce4afce5a3a08a26be40fd59344e9e3bc3fe194;p=haskell-directory.git

[project @ 2003-03-31 15:36:24 by ross]
remove a GHC-ism
---

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index 6874ac9..3253894 100644
--- 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