tmapchan 0.0.2 → 0.0.3
raw patch · 3 files changed
+8/−1 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Control.Concurrent.STM.TMapChan: keys :: TMapChan k a -> STM [k]
+ Control.Concurrent.STM.TMapChan.Hash: keys :: TMapChan k a -> STM [k]
Files
- src/Control/Concurrent/STM/TMapChan.hs +4/−0
- src/Control/Concurrent/STM/TMapChan/Hash.hs +3/−0
- tmapchan.cabal +1/−1
src/Control/Concurrent/STM/TMapChan.hs view
@@ -8,6 +8,7 @@ , -- * Utils getTChan , setTChan+ , keys , broadcast , cloneAt, cloneAll, cloneAllUniquely ) where@@ -23,6 +24,9 @@ newtype TMapChan k a = TMapChan {runTMapChan :: TVar (Map k (TChan a))}++keys :: TMapChan k a -> STM [k]+keys (TMapChan m) = Map.keys <$> readTVar m newTMapChan :: STM (TMapChan k a) newTMapChan = TMapChan <$> newTVar Map.empty
src/Control/Concurrent/STM/TMapChan/Hash.hs view
@@ -79,6 +79,9 @@ -- * Utils +keys :: TMapChan k a -> STM [k]+keys (TMapChan m) = HashMap.keys <$> readTVar m+ -- | Creates a new one if it doesn't already exist getTChan :: (Eq k, Hashable k) => TMapChan k a -> k -> STM (TChan a)
tmapchan.cabal view
@@ -1,5 +1,5 @@ name: tmapchan-version: 0.0.2+version: 0.0.3 synopsis: An insert-ordered multimap (indexed FIFO) which consumes values as you lookup -- description: homepage: https://github.com/athanclark/tmapchan#readme