diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-20 13:22:02 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-20 13:22:02 +0100 |
| commit | b8d7b8fa60ae959ec6e15b35ab640429a95e79ed (patch) | |
| tree | a8144bdb870428e916efa6b26b8418096d422a46 /libraries/base/tests/exceptionsrun002.hs | |
| parent | c4b81e3d2c5c164c675d2a4e84a830edda34dd52 (diff) | |
| download | haskell-b8d7b8fa60ae959ec6e15b35ab640429a95e79ed.tar.gz | |
Update tests following changes in base
Diffstat (limited to 'libraries/base/tests/exceptionsrun002.hs')
| -rw-r--r-- | libraries/base/tests/exceptionsrun002.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libraries/base/tests/exceptionsrun002.hs b/libraries/base/tests/exceptionsrun002.hs index 9503001a31..0dae46117d 100644 --- a/libraries/base/tests/exceptionsrun002.hs +++ b/libraries/base/tests/exceptionsrun002.hs @@ -1,9 +1,8 @@ module Main where import qualified Control.Exception as Exception -import System.IO.Error (mkIOError) +import System.IO.Error (mkIOError, catchIOError) import Data.IORef -import Prelude safeCatch :: IO () -> IO () safeCatch f = Exception.catch f @@ -79,7 +78,7 @@ bindCatcher = MkNamed ">>" (>>) preludeCatchCatcher :: Named Catcher preludeCatchCatcher = MkNamed "Prelude.catch" - (\f cc -> Prelude.catch (f >> (return ())) (const cc)) + (\f cc -> catchIOError (f >> (return ())) (const cc)) ceCatchCatcher :: Named Catcher ceCatchCatcher = MkNamed "Exception.catch" |