From 8092993e8be2de9e0be572ccfd3655a27f75def6 Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Wed, 20 Jul 2016 12:44:10 -0400
Subject: [PATCH] Add test for Either
---
tests/Control/Monad/Catch/Tests.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/tests/Control/Monad/Catch/Tests.hs b/tests/Control/Monad/Catch/Tests.hs
index 6773b4e..619955a 100644
--- a/tests/Control/Monad/Catch/Tests.hs
+++ b/tests/Control/Monad/Catch/Tests.hs
@@ -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
--
GitLab