From fce4afce5a3a08a26be40fd59344e9e3bc3fe194 Mon Sep 17 00:00:00 2001 From: ross Date: Mon, 31 Mar 2003 15:36:24 +0000 Subject: [PATCH] [project @ 2003-03-31 15:36:24 by ross] remove a GHC-ism --- System/IO/Error.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4