diff options
| author |  Ian Lynagh <igloo@earth.li> | 2008-06-23 19:31:52 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-23 19:31:52 +0000 |
| commit | 1e118d9a64e928a07f9c7c3a64b4b22e5fca821c (patch) | |
| tree | ba44813b5cb71d51c7ab0031996d557594030c83 /tests | |
| parent | 3c5861c340cb45cf626f61e022d0aa2805f16569 (diff) | |
Follow extensible exceptions changes
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/user001.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |