Replace uses of the old catch function with the new one
authorIan Lynagh <igloo@earth.li>
Sat, 18 Dec 2010 21:42:59 +0000 (21:42 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 18 Dec 2010 21:42:59 +0000 (21:42 +0000)
System/IO/Error.hs

index d998da8..c4005ba 100644 (file)
@@ -48,6 +48,7 @@ module System.IO.Error (
 
   ) where
 
+import qualified "base" Control.Exception as Exception
 import "base" System.IO.Error hiding (IOError,catch,try)
 import qualified "base" System.IO.Error as Base
 import Prelude hiding (IOError,catch)
@@ -77,7 +78,7 @@ type IOError = Base.IOError
 -- system prints the associated 'IOError' value and exits the program.
 --
 catch :: IO a -> (IOError -> IO a) -> IO a
-catch = Base.catch
+catch = Exception.catch
 
 -- | The construct 'try' @comp@ exposes IO errors which occur within a
 -- computation, and which are not fully handled.