Skip to content

GitLab

Commit 8092993e authored by Ryan Scott's avatar Ryan Scott
Browse files

Add test for Either

parent d63e1de4
Hide whitespace changes
Inline Side-by-side
tests/Control/Monad/Catch/Tests.hs
View file @ 8092993e
...@@ -88,7 +88,8 @@ tests = testGroup "Control.Monad.Catch.Tests" $ ...@@ -88,7 +88,8 @@ tests = testGroup "Control.Monad.Catch.Tests" $
, MSpec "STM" $ io . atomically , MSpec "STM" $ io . atomically
--, MSpec "ContT IO" $ \m -> io $ runContT m return --, MSpec "ContT IO" $ \m -> io $ runContT m return
, MSpec "CatchT Indentity" $ fromRight . runCatch , MSpec "CatchT Identity" $ fromRight . runCatch
, MSpec "Either SomeException" fromRight
] ]
tfst :: (Property, ()) -> Property = fst tfst :: (Property, ()) -> Property = fst
......
Supports Markdown
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