concurrent-supply 0.1.2 → 0.1.3

raw patch · 2 files changed

+6/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Control/Concurrent/Supply.hs +5/−2
• concurrent-supply.cabal +1/−1

@@ -71,9 +71,12 @@ blockCounter = unsafeDupablePerformIO $ newIORef 0 {-# NOINLINE blockCounter #-} +modifyBlock :: () -> IO Int+modifyBlock _ = atomicModifyIORef blockCounter $ \ i -> let i' = i + blockSize in i' `seq` (i', i)+{-# NOINLINE modifyBlock #-}+ gen :: () -> Block-gen _ = Block (unsafeDupablePerformIO $ atomicModifyIORef blockCounter $ \ i -> let i' = i + blockSize in (i', i))-              (gen <$> units)+gen x = Block (unsafeDupablePerformIO (modifyBlock x)) (gen <$> units) {-# NOINLINE gen #-}  newBlock :: IO Block

@@ -1,6 +1,6 @@ name:          concurrent-supply category:      Concurrency, Parallelism-version:       0.1.2+version:       0.1.3 license:       BSD3 cabal-version: >= 1.10 license-file:  LICENSE