lifted-base 0.2.3.3 → 0.2.3.4

raw patch · 2 files changed

+3/−13 lines, 2 filesdep +transformers-compatdep ~transformers-basePVP ok

version bump matches the API change (PVP)

Dependencies added: transformers-compat

Dependency ranges changed: transformers-base

API changes (from Hackage documentation)

Files

• lifted-base.cabal +3/−2
• test/test.hs +0/−11

@@ -1,5 +1,5 @@ Name:                lifted-base-Version:             0.2.3.3+Version:             0.2.3.4 Synopsis:            lifted IO operations from the base library License:             BSD3 License-file:        LICENSE@@ -66,7 +66,8 @@   build-depends: lifted-base                , base                 >= 3     && < 5                , transformers         >= 0.3   && < 0.5-               , transformers-base    >= 0.4   && < 0.5+               , transformers-base    >= 0.4.4 && < 0.5+               , transformers-compat  >= 0.3   && < 0.4                , monad-control        >= 0.3   && < 1.1                , HUnit                >= 1.2.2 && < 1.3                , test-framework       >= 0.2.4 && < 0.9

@@ -17,10 +17,7 @@ import Control.Monad.Trans.Maybe import Control.Monad.Trans.Reader import Control.Monad.Trans.Writer--#if MIN_VERSION_transformers(0,4,0) import Control.Monad.Trans.Except-#endif  import Control.Monad.Trans.State import qualified Control.Monad.Trans.RWS as RWS@@ -48,23 +45,17 @@     , testSuite "MaybeT" $ fmap fromJust . runMaybeT     , testSuite "ReaderT" $ flip runReaderT "reader state"     , testSuite "WriterT" runWriterT'-#if MIN_VERSION_transformers(0,4,0)     , testSuite "ExceptT" runExceptT'-#endif     , testSuite "StateT" $ flip evalStateT "state state"     , testSuite "RWST" $ \m -> runRWST' m "RWS in" "RWS state"-#if MIN_VERSION_transformers(0,4,0)     , testCase "ExceptT throwE" case_throwE-#endif     , testCase "WriterT tell" case_tell     ]   where     runWriterT' :: Functor m => WriterT [Int] m a -> m a     runWriterT' = fmap fst . runWriterT-#if MIN_VERSION_transformers(0,4,0)     runExceptT' :: Functor m => ExceptT String m () -> m ()     runExceptT' = fmap (either (const ()) id) . runExceptT-#endif     runRWST' :: (Monad m, Functor m) => RWS.RWST r [Int] s m a -> r -> s -> m a     runRWST' m r s = fmap fst $ RWS.evalRWST m r s @@ -144,7 +135,6 @@     k <- readIORef i     k @?= 4 -#if MIN_VERSION_transformers(0,4,0) case_throwE :: Assertion case_throwE = do     i <- newIORef one@@ -154,7 +144,6 @@         (liftBase $ writeIORef i 3)     j <- readIORef i     j @?= 3-#endif  case_tell :: Assertion case_tell = do