exception-transformers 0.3.0.4 → 0.4

raw patch · 4 files changed

+9/−19 lines, 4 filesdep +transformers-compatPVP ok

version bump matches the API change (PVP)

Dependencies added: transformers-compat

API changes (from Hackage documentation)

Files

• Control/Monad/Exception.hs +0/−6
• LICENSE +1/−1
• exception-transformers.cabal +8/−6
• tests/unit/Main.hs +0/−6

@@ -53,11 +53,9 @@                                   ErrorT(..),                                   mapErrorT,                                   runErrorT)-#if MIN_VERSION_transformers(0,4,0) import Control.Monad.Trans.Except (ExceptT(..),                                    mapExceptT,                                    runExceptT)-#endif /* MIN_VERSION_transformers(0,4,0) */ import Control.Monad.Trans.Identity (IdentityT(..),                                      mapIdentityT,                                      runIdentityT)@@ -303,7 +301,6 @@     act `finally` sequel =         mapErrorT (\act' -> act' `finally` runErrorT sequel) act -#if MIN_VERSION_transformers(0,4,0) instance (MonadException m) =>     MonadException (ExceptT e' m) where     throw       = lift . throw@@ -311,7 +308,6 @@      act `finally` sequel =         mapExceptT (\act' -> act' `finally` runExceptT sequel) act-#endif /* MIN_VERSION_transformers(0,4,0) */  instance (MonadException m) =>     MonadException (IdentityT m) where@@ -382,12 +378,10 @@     mask act = ErrorT $ mask $ \restore ->                runErrorT $ act (mapErrorT restore) -#if MIN_VERSION_transformers(0,4,0) instance (MonadAsyncException m) =>     MonadAsyncException (ExceptT e' m) where     mask act = ExceptT $ mask $ \restore ->                runExceptT $ act (mapExceptT restore)-#endif /* MIN_VERSION_transformers(0,4,0) */  instance (MonadAsyncException m) =>     MonadAsyncException (IdentityT m) where

@@ -25,7 +25,7 @@ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -Copyright (c) 2011-2012, Geoffrey Mainland+Copyright (c) 2011-2015, Geoffrey Mainland All rights reserved.  Redistribution and use in source and binary forms, with or without modification,

@@ -1,10 +1,10 @@ name:           exception-transformers-version:        0.3.0.4+version:        0.4 cabal-version:  >= 1.10 license:        BSD3 license-file:   LICENSE copyright:      (c) 2009-2010 Harvard University-		(c) 2011-2014 Geoffrey Mainland+		(c) 2011-2015 Geoffrey Mainland author:         Geoffrey Mainland <mainland@cs.drexel.edu> maintainer:     Geoffrey Mainland <mainland@cs.drexel.edu> stability:      alpha@@ -25,9 +25,10 @@     Control.Monad.Exception    build-depends:-    base         >= 4   && < 5,-    stm          >= 2.1 && < 2.5,-    transformers >= 0.2 && < 0.5+    base                >= 4   && < 5,+    stm                 >= 2.1 && < 2.5,+    transformers        >= 0.2 && < 0.5,+    transformers-compat >= 0.3 && < 0.4    ghc-options:     -Wall@@ -44,7 +45,8 @@     exception-transformers >= 0.3 && < 0.5,     test-framework         >= 0.8 && < 0.9,     test-framework-hunit   >= 0.3 && < 0.4,-    transformers           >= 0.2 && < 0.5+    transformers           >= 0.2 && < 0.5,+    transformers-compat    >= 0.3 && < 0.5    ghc-options:     -Wall

@@ -16,9 +16,7 @@  import Control.Monad.Exception import Control.Monad.Trans.Error-#if MIN_VERSION_transformers(0,4,0) import Control.Monad.Trans.Except-#endif /* MIN_VERSION_transformers(0,4,0) */ import Control.Monad.IO.Class import Data.IORef import Test.Framework@@ -61,7 +59,6 @@  exceptTests :: Test exceptTests = testGroup "ExceptT tests"-#if MIN_VERSION_transformers(0,4,0)     [testCase (conl ++ " " ++ whatl) (mkExceptTest con what) | (conl, con) <- cons, (whatl, what) <- whats]   where     whats :: [(String, ExceptT String IO ())]@@ -85,6 +82,3 @@       where         expected :: String         expected = "sequel called"-#else /* !MIN_VERSION_transformers(0,4,0) */-    []-#endif /* !MIN_VERSION_transformers(0,4,0) */