lifted-async 0.2.0 → 0.2.0.1

raw patch · 5 files changed

+11/−6 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• lifted-async.cabal +2/−2
• src/Control/Concurrent/Async/Lifted.hs +1/−1
• tests/Test/Async/IO.hs +2/−2
• tests/Test/Async/State.hs +1/−1

@@ -1,3 +1,8 @@+## v0.2.0.1 - 2014-07-26++* Fix a typo in a haddock comment (#5 by @supki)+* Fix Travis CI failure+ ## v0.2.0 - 2014-05-01  * Generalize `Concurrently` (#4)

@@ -1,5 +1,5 @@ name:                lifted-async-version:             0.2.0+version:             0.2.0.1 synopsis:            Run lifted IO operations asynchronously and wait for their results homepage:            https://github.com/maoe/lifted-async bug-reports:         https://github.com/maoe/lifted-async/issues@@ -95,5 +95,5 @@  source-repository this   type: git-  tag: v0.2.0+  tag: v0.2.0.1   location: https://github.com/maoe/lifted-async.git

@@ -179,7 +179,7 @@   -> m (Either SomeException a) waitCatch a = liftBase (A.waitCatch a) >>= sequenceEither --- | Generalized version of 'A.catch'.+-- | Generalized version of 'A.cancel'. cancel :: MonadBase IO m => Async (StM m a) -> m () cancel = liftBase . A.cancel 

@@ -2,7 +2,7 @@ module Test.Async.IO   ( ioTestGroup   ) where-import Control.Monad (when)+import Control.Monad (when, void) import Data.Maybe (isJust, isNothing)  import Control.Concurrent.Lifted@@ -78,7 +78,7 @@ case_async_poll2 :: Assertion case_async_poll2 = do   a <- async (return value)-  wait a+  void $ wait a   r <- poll a   when (isNothing r) $ assertFailure ""   r' <- poll a   -- poll twice, just to check we don't deadlock

@@ -107,7 +107,7 @@ case_async_poll2 =   void $ flip runStateT value $ do     a <- async (return value)-    wait a+    void $ wait a     r <- poll a     when (isNothing r) $       liftIO $ assertFailure "The result must not be Nothing."