async 1.0 → 1.1

raw patch · 2 files changed

+3/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

Control/Async.hs +2/−2
async.cabal +1/−1

Control/Async.hs view

@@ -29,9 +29,9 @@ data Async a = Child ThreadId (AsyncMVar a)  forkAsync' :: IO a -> AsyncMVar a -> IO (Async a)-forkAsync' f mv = fmap (\p -> Child p mv) (forkIO f')+forkAsync' f mv = fmap (\p -> Child p mv) (block (forkIO f'))   where-    f' = block (try f >>= tryPutMVar mv >> return ())+    f' = try f >>= tryPutMVar mv >> return ()  forkAsync :: IO a -> IO (Async a) forkAsync f = newEmptyMVar >>= forkAsync' f

async.cabal view

@@ -1,5 +1,5 @@ Name:                   async-Version:                1.0+Version:                1.1 Copyright:              (c) 2004-2010 Peter Simons License:                BSD3 License-File:		LICENSE