diff options
Diffstat (limited to 'testsuite/tests/numeric/should_run/arith011.hs')
-rw-r--r-- | testsuite/tests/numeric/should_run/arith011.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/numeric/should_run/arith011.hs b/testsuite/tests/numeric/should_run/arith011.hs index e00caad19a..95a2f5f6da 100644 --- a/testsuite/tests/numeric/should_run/arith011.hs +++ b/testsuite/tests/numeric/should_run/arith011.hs @@ -122,7 +122,7 @@ table2 nm op xs ys = do where op' x y = do s <- Control.Exception.catch (evaluate (show (op x y))) - (\e -> return (show (e :: SomeException))) + (\e -> return (show (e :: SomeExceptionWithLocation))) putStrLn (show x ++ " " ++ nm ++ " " ++ show y ++ " = " ++ s) testReadShow zero = do |