Fix the arith011 test now that catchAny is gone

testsuite/tests/ghc-regress/numeric/should_run/arith011.hs

@@ -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"