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

Add test for Either

parent d63e1de4
......@@ -88,7 +88,8 @@ tests = testGroup "Control.Monad.Catch.Tests" $
, MSpec "STM" $ io . atomically
--, 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
......
Markdown is supported
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