6692959 · streamly · git.iko.soy

git.iko.soy/streamly

Add some INLINABLE pragams

commit669295965a3782c1ba233ad46b79528f0e897900 authorHarendra Kumar <harendra.kumar@gmail.com> dateSun 27 May 2018, 10:33 (8 years ago) parented0323c

2 files changed+3

unifiedsplit

benchmark/LinearOps.hs+1

@@ -155,6 +155,7 @@ composeAllInFilters = compose (S.filter (<= maxValue))

155155composeAllOutFilters = compose (S.filter (> maxValue))

156156composeMapAllInFilter = compose (S.filter (<= maxValue) . fmap (subtract 1))

157157

158+{-# INLINABLE composeScaling #-}

158159composeScaling :: Monad m => Int -> Stream m Int -> m ()

159160composeScaling m =

160161 case m of

src/Streamly/Core.hs+2

@@ -1069,6 +1069,7 @@ newEmptySVar style = do

10691069 AheadVar -> getAheadSVar style

10701070

10711071-- | Create a new SVar and enqueue one stream computation on it.

1072+{-# INLINABLE newStreamVar1 #-}

10721073newStreamVar1 :: MonadAsync m => SVarStyle -> Stream m a -> m (SVar m a)

10731074newStreamVar1 style m = do

10741075 sv <- newEmptySVar style

@@ -1083,6 +1084,7 @@ newStreamVar1 style m = do

10831084 return sv

10841085

10851086-- | Create a new SVar and enqueue one stream computation on it.

1087+{-# INLINABLE newStreamVarAhead #-}

10861088newStreamVarAhead :: MonadAsync m => Stream m a -> m (SVar m a)

10871089newStreamVarAhead m = do

10881090 sv <- newEmptySVar AheadVar