diff options
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 |