From 1e118d9a64e928a07f9c7c3a64b4b22e5fca821c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 23 Jun 2008 19:31:52 +0000 Subject: Follow extensible exceptions changes --- tests/user001.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/user001.hs b/tests/user001.hs index efaf5cf..57c86af 100644 --- a/tests/user001.hs +++ b/tests/user001.hs @@ -9,7 +9,7 @@ p :: Show a => String -> IO a -> IO () p s m = (do putStr (s ++ ": ") c <- fmap check m putStrLn $ if c then "OK" else "I am the pope!") - `Exception.catch` (putStrLn . ("ERROR: " ++) . show) + `Exception.catchAny` (putStrLn . ("ERROR: " ++) . show) main :: IO () main = do p "getRealUserID" $ getRealUserID -- cgit v1.2.3