From 3b98a03c3e467218e7f19ae0a0d7fb90ba7b687d Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Sat, 27 Sep 2008 13:54:28 +0000
Subject: catch up with exception 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 57c86af..ebbb464 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.catchAny` (putStrLn . ("ERROR: " ++) . show)
+        `Exception.catch` (\e -> putStrLn ("ERROR: " ++ show (e::SomeException)))
 
 main :: IO ()
 main = do p "getRealUserID"        $ getRealUserID
-- 
cgit v1.2.3