bounded-tchan 0.2.1 → 0.2.2
raw patch · 2 files changed
+4/−4 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
Control/Concurrent/STM/BTChan.hs view
@@ -45,7 +45,7 @@ rsz <- readTVar rdTV let !newWR = sz + rsz when (newWR >= mx) retry- writeTVar wrTV newWR+ writeTVar wrTV (newWR+1) writeTVar rdTV 0 writeTChan c x else do@@ -62,7 +62,7 @@ let !newWR = sz + rsz if (newWR >= mx) then return False- else do writeTVar wrTV newWR+ else do writeTVar wrTV (newWR + 1) writeTVar rdTV 0 writeTChan c x return True@@ -96,7 +96,7 @@ rsz <- readTVar rdTV let !newWR = sz + rsz when (newWR >= m) retry- writeTVar wrTV newWR+ writeTVar wrTV (newWR + 1) writeTVar rdTV 0 unGetTChan c a else do
bounded-tchan.cabal view
@@ -1,5 +1,5 @@ Name: bounded-tchan-Version: 0.2.1+Version: 0.2.2 Synopsis: Bounded Transactional channels (queues) Description: Bounded TChan's, or BTChan's, are a transactional queue with a limit to the number of elements (further calls to @writeBTChan@ or @unGetBTChan@ call STM retry).