Skip to content
Snippets Groups Projects
Commit fbadf7ce authored by Ryan Scott's avatar Ryan Scott
Browse files

Avoid an incomplete uni-pattern

parent 8c8eef9d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
tests/Control/Monad/Catch/Tests.hs
+ 1
− 1
View file @ fbadf7ce
...@@ -149,7 +149,7 @@ tests = testGroup "Control.Monad.Catch.Tests" $ ...@@ -149,7 +149,7 @@ tests = testGroup "Control.Monad.Catch.Tests" $
mspecStrictRWSTIO = MSpec "StrictRWS.RWST IO" $ \m -> io $ fmap tfst $ StrictRWS.evalRWST m () False mspecStrictRWSTIO = MSpec "StrictRWS.RWST IO" $ \m -> io $ fmap tfst $ StrictRWS.evalRWST m () False
mspecListTIO :: MSpec (ListT IO) 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)
mspecMaybeTIO = MSpec "MaybeT IO" $ \m -> io $ fmap (maybe undefined id) (runMaybeT m) mspecMaybeTIO = MSpec "MaybeT IO" $ \m -> io $ fmap (maybe undefined id) (runMaybeT m)
......
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