Commit fff26d8e authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix the arith011 test now that catchAny is gone

parent a52dd8d9
......@@ -98,9 +98,10 @@ table2 nm op xs ys = do
]
putStrLn "#"
where
op' x y = do s <- Control.Exception.catchAny (evaluate (show (op x y)))
(return . show)
putStrLn (show x ++ " " ++ nm ++ " " ++ show y ++ " = " ++ s)
op' x y = do s <- Control.Exception.catch
(evaluate (show (op x y)))
(\e -> return (show (e :: SomeException)))
putStrLn (show x ++ " " ++ nm ++ " " ++ show y ++ " = " ++ s)
testReadShow zero = do
putStrLn "testReadShow"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment