potoki-core 2.3.3 → 2.3.4
raw patch · 3 files changed
+20/−2 lines, 3 filesdep +stm-chansdep ~deepseq
Dependencies added: stm-chans
Dependency ranges changed: deepseq
Files
library/Potoki/Core/Prelude.hs view
@@ -123,6 +123,11 @@ ------------------------- import DeferredFolds.Unfoldr as Exports (Unfoldr(..)) +-- stm-chans+-------------------------+import Control.Concurrent.STM.TBMChan as Exports+import Control.Concurrent.STM.TMChan as Exports+ -------------------------------------------------------------------------------- import qualified Data.Text as A
library/Potoki/Core/Produce.hs view
@@ -13,6 +13,8 @@ directoryContents, finiteMVar, infiniteMVar,+ tbmChan,+ tmChan, lazyByteString, enumInRange, mergeOrdering,@@ -235,6 +237,16 @@ infiniteMVar :: MVar element -> Produce element infiniteMVar var = Produce $ M.Acquire (return (A.infiniteMVar var, return ()))++{-# INLINE tbmChan #-}+tbmChan :: TBMChan element -> Produce element+tbmChan chan = do+ Produce $ return $ Fetch $ atomically $ readTBMChan chan++{-# INLINE tmChan #-}+tmChan :: TMChan element -> Produce element+tmChan chan = do+ Produce $ return $ Fetch $ atomically $ readTMChan chan {-# INLINE lazyByteString #-} lazyByteString :: D.ByteString -> Produce ByteString
potoki-core.cabal view
@@ -1,5 +1,5 @@ name: potoki-core-version: 2.3.3+version: 2.3.4 synopsis: Low-level components of "potoki" description: Provides everything required for building custom instances of@@ -50,7 +50,7 @@ attoparsec >=0.13 && <0.15, base >=4.9 && <5, bytestring ==0.10.*,- deepseq >=1.4.3 && <2,+ deepseq >=1.4 && <2, deferred-folds >=0.9.7.1 && <0.10, directory >=1.3 && <2, foldl >=1.3 && <2,@@ -60,6 +60,7 @@ ptr >=0.16.2 && <0.17, scanner >=0.3 && <0.4, stm >=2.5 && <2.6,+ stm-chans >=3 && <3.1, text >=1 && <2, text-builder >=0.6.3 && <0.7, time >=1.5 && <2,