Follow extensible exceptions changes
authorIan Lynagh <igloo@earth.li>
Mon, 23 Jun 2008 19:31:52 +0000 (19:31 +0000)
committerIan Lynagh <igloo@earth.li>
Mon, 23 Jun 2008 19:31:52 +0000 (19:31 +0000)
tests/user001.hs

index efaf5cf..57c86af 100644 (file)
@@ -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