@@ -658,9 +658,7 @@ checkFoldxStrictness = do
658658 let s = return (1 :: Int) `S.consM` error "failure"
659659 catch (S.foldx (\_ a -> if a == 1 then error "success" else "done")
660660 "begin" id s)
661− (\e -> case e of
662− ErrorCall err -> return err
663− _ -> throw e)
661+ (\(ErrorCall err) -> return err)
664662 `shouldReturn` "success"
665663#endif
666664
@@ -686,9 +684,7 @@ checkScanxStrictness = do
686684 )
687685 >> return "finished"
688686 )
689− (\e -> case e of
690− ErrorCall err -> return err
691− _ -> throw e)
687+ (\(ErrorCall err) -> return err)
692688 `shouldReturn` "success"
693689#endif
694690