From fbadf7ce629f7114e13231ea14596e9dc0a278ec Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Fri, 13 Mar 2020 15:02:35 -0400
Subject: [PATCH] Avoid an incomplete uni-pattern
---
tests/Control/Monad/Catch/Tests.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/Control/Monad/Catch/Tests.hs b/tests/Control/Monad/Catch/Tests.hs
index e4331ee..8eeca18 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)
--
GitLab