tdd-util 0.2.0.2 → 0.2.0.3

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• src/Test/Util.hs +2/−2
• tdd-util.cabal +2/−2

@@ -30,7 +30,7 @@ import Control.Applicative --import Control.Concurrent.ParallelIO.Local import Control.Exception hiding (catch)-import Control.Monad.CatchIO+import Control.Monad.CatchIO as M import Control.Monad.IO.Class import Control.Lens.TH import Data.Dynamic@@ -49,7 +49,7 @@ -- | Determine whether an exception was caught, and return it if so. isExceptionThrown :: (Functor m, MonadCatchIO m, Exception e) => m a -> m (Either e a) isExceptionThrown m = do-    (Right <$> m) `catch` (return . Left)+    (Right <$> m) `M.catch` (return . Left)  -- | Assert that an exception is thrown. --

@@ -1,5 +1,5 @@ name:                  tdd-util-version:               0.2.0.2+version:               0.2.0.3 cabal-version:         >= 1.10 build-type:            Simple license:               BSD3@@ -314,4 +314,4 @@ source-repository head   type:     git   location: git://github.com/bairyn/tdd-util.git-  tag:      0.2.0.2+  tag:      0.2.0.3