diff options
| author |  Simon Marlow <marlowsd@gmail.com> | 2008-09-27 13:54:28 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-09-27 13:54:28 +0000 |
| commit | 3b98a03c3e467218e7f19ae0a0d7fb90ba7b687d (patch) | |
| tree | 95b2a06c4ebe9ef4ba4be264afbe05283bcc0439 /tests | |
| parent | b696e9251c26cbfbb4837e8032e4f846d1470f3e (diff) | |
catch up with exception 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 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 |