diff --git a/tests/Control/Monad/Catch/Tests.hs b/tests/Control/Monad/Catch/Tests.hs index e4331ee1f321e0cf24d82f4b1274bf6cf6e38ce3..8eeca1816673744ca5e4f72ea8a4184114de4db0 100644 --- a/tests/Control/Monad/Catch/Tests.hs +++ b/tests/Control/Monad/Catch/Tests.hs @@ -149,7 +149,7 @@ tests = testGroup "Control.Monad.Catch.Tests" $ mspecStrictRWSTIO = MSpec "StrictRWS.RWST IO" $ \m -> io $ fmap tfst $ StrictRWS.evalRWST m () False mspecListTIO :: MSpec (ListT IO) - mspecListTIO = MSpec "ListT IO" $ \m -> io $ fmap (\[x] -> x) (runListT m) + mspecListTIO = MSpec "ListT IO" $ \m -> io $ fmap (foldr const undefined) (runListT m) mspecMaybeTIO :: MSpec (MaybeT IO) mspecMaybeTIO = MSpec "MaybeT IO" $ \m -> io $ fmap (maybe undefined id) (runMaybeT m)