on master help sign in
Remove dependency on the IsStream.Enumeration module
commitd8bc53b7abc938f98f0bf8b3315438838bf8fa92 authorHarendra Kumar <harendra@composewell.com> dateFri 20 Aug 2021, 01:05 (5 years ago) parent62675bf
1 file changed+4−3
src/Streamly/Internal/Data/Fold.hs+4−3
src/Streamly/Internal/Data/Fold.hs+4−3
@@ -256,7 +256,7 @@ import Streamly.Internal.Data.Stream.Serial (SerialT)
256256
257257import qualified Data.Map.Strict as Map
258258import qualified Streamly.Internal.Data.Pipe.Type as Pipe
259−import qualified Streamly.Internal.Data.Stream.IsStream.Enumeration as Stream
259+-- import qualified Streamly.Internal.Data.Stream.IsStream.Enumeration as Stream
260260import qualified Streamly.Internal.Data.Stream.StreamK as K
261261import qualified Prelude
262262
@@ -1617,8 +1617,9 @@ zip = zipWithM (curry return)
16171617--
16181618-- /Unimplemented/
16191619{-# INLINE indexed #-}
1620−indexed :: forall m a b. Monad m => Fold m (Int, a) b -> Fold m a b
1621−indexed = zip (Stream.enumerateFrom 0 :: SerialT m Int)
1620+indexed :: -- forall m a b. Monad m =>
1621+ Fold m (Int, a) b -> Fold m a b
1622+indexed = undefined -- zip (Stream.enumerateFrom 0 :: SerialT m Int)
16221623
16231624-- | Change the predicate function of a Fold from @a -> b@ to accept an
16241625-- additional state input @(s, a) -> b@. Convenient to filter with an