e21d842 · streamly · git.iko.soy

src/Streamly/Internal/Data/Array/Foreign/Mut/Type.hs+1−1

compare with master

unifiedsplit

@@ -2042,7 +2042,7 @@ fromStreamD m = arrayStreamKFromStreamD m >>= fromArrayStreamK

2042-- | Create an 'Array' from a list. The list must be of finite size.

2043--

2044-- @since 0.7.0

2045−{-# INLINABLE fromList #-}

2045+{-# INLINE fromList #-}

2046fromList :: (MonadIO m, Storable a) => [a] -> m (Array a)

2047fromList xs = fromStreamD $ D.fromList xs

2048

src/Streamly/Internal/Data/Array/Foreign/Type.hs+1−1

@@ -357,7 +357,7 @@ fromListRevN _n _xs = undefined

357-- /Since 0.7.0 (Streamly.Memory.Array)/

358--

359-- @since 0.8.0

360−{-# INLINABLE fromList #-}

360+{-# INLINE fromList #-}

361fromList :: Storable a => [a] -> Array a

362fromList xs = unsafePerformIO $ unsafeFreeze <$> MA.fromList xs

363

src/Streamly/Internal/Data/Fold.hs+1−1

@@ -809,7 +809,7 @@ toListRev = foldl' (flip (:)) []

809-- > drainN n = Fold.take n Fold.drain

810--

811-- /Pre-release/

812−{-# INLINABLE drainN #-}

812+{-# INLINE drainN #-}

813drainN :: Monad m => Int -> Fold m a ()

814drainN n = take n drain

815

src/Streamly/Internal/Data/Fold/Type.hs+1−1

@@ -528,7 +528,7 @@ fromRefold (Refold step inject extract) c =

528-- > drain = drainBy (const (return ()))

529--

530-- @since 0.7.0

531−{-# INLINABLE drain #-}

531+{-# INLINE drain #-}

532drain :: Monad m => Fold m a ()

533drain = foldl' (\_ _ -> ()) ()

534

src/Streamly/Internal/Data/Parser.hs+8−8

@@ -534,7 +534,7 @@ drainWhile p = takeWhile p FL.drain

534--

535-- /Pre-release/

536--

537−{-# INLINABLE sliceSepByP #-}

537+{-# INLINE sliceSepByP #-}

538sliceSepByP ::

539 MonadCatch m =>

540 (a -> Bool) -> Parser m a b -> Parser m a b

@@ -544,7 +544,7 @@ sliceSepByP cond = K.toParserK . D.sliceSepByP cond . K.fromParserK

544-- separator is emitted as a separate element in the output.

545--

546-- /Unimplemented/

547−{-# INLINABLE sliceSepWith #-}

547+{-# INLINE sliceSepWith #-}

548sliceSepWith :: -- MonadCatch m =>

549 (a -> Bool) -> Fold m a b -> Parser m a b

550sliceSepWith _cond = undefined -- K.toParserK . D.sliceSepBy cond

@@ -583,7 +583,7 @@ sliceSepWith _cond = undefined -- K.toParserK . D.sliceSepBy cond

583--

584-- /Pre-release/

585--

586−{-# INLINABLE sliceBeginWith #-}

586+{-# INLINE sliceBeginWith #-}

587sliceBeginWith ::

588 MonadCatch m =>

589 (a -> Bool) -> Fold m a b -> Parser m a b

@@ -593,7 +593,7 @@ sliceBeginWith cond = K.toParserK . D.sliceBeginWith cond

593-- escape char determined by the second predicate.

594--

595-- /Unimplemented/

596−{-# INLINABLE escapedSliceSepBy #-}

596+{-# INLINE escapedSliceSepBy #-}

597escapedSliceSepBy :: -- MonadCatch m =>

598 (a -> Bool) -> (a -> Bool) -> Fold m a b -> Parser m a b

599escapedSliceSepBy _cond _esc = undefined

@@ -622,7 +622,7 @@ escapedSliceSepBy _cond _esc = undefined

622-- @

623--

624-- /Unimplemented/

625−{-# INLINABLE escapedFrameBy #-}

625+{-# INLINE escapedFrameBy #-}

626escapedFrameBy :: -- MonadCatch m =>

627 (a -> Bool) -> (a -> Bool) -> (a -> Bool) -> Fold m a b -> Parser m a b

628escapedFrameBy _begin _end _escape _p = undefined

@@ -672,7 +672,7 @@ wordBy f = K.toParserK . D.wordBy f

672--

673-- /Pre-release/

674--

675−{-# INLINABLE groupBy #-}

675+{-# INLINE groupBy #-}

676groupBy :: MonadCatch m => (a -> a -> Bool) -> Fold m a b -> Parser m a b

677groupBy eq = K.toParserK . D.groupBy eq

678

@@ -706,7 +706,7 @@ groupBy eq = K.toParserK . D.groupBy eq

706--

707-- /Pre-release/

708--

709−{-# INLINABLE groupByRolling #-}

709+{-# INLINE groupByRolling #-}

710groupByRolling :: MonadCatch m => (a -> a -> Bool) -> Fold m a b -> Parser m a b

711groupByRolling eq = K.toParserK . D.groupByRolling eq

712

@@ -720,7 +720,7 @@ groupByRolling eq = K.toParserK . D.groupByRolling eq

720-- Fold.toList Fold.toList'.

721--

722-- /Unimplemented/

723−{-# INLINABLE groupByRollingEither #-}

723+{-# INLINE groupByRollingEither #-}

724groupByRollingEither :: MonadCatch m =>

725 (a -> a -> Bool) -> Fold m a b -> Fold m a c -> Parser m a (Either b c)

726groupByRollingEither eq f1 = K.toParserK . D.groupByRollingEither eq f1

src/Streamly/Internal/Data/Parser/ParserD.hs+3−3

@@ -268,7 +268,7 @@ fromFold (Fold fstep finitial fextract) = Parser step initial fextract

268--

269-- /Pre-release/

270--

271−{-# INLINABLE peek #-}

271+{-# INLINE peek #-}

272peek :: MonadThrow m => Parser m a a

273peek = Parser step initial extract

274

@@ -284,7 +284,7 @@ peek = Parser step initial extract

284--

285-- /Pre-release/

286--

287−{-# INLINABLE eof #-}

287+{-# INLINE eof #-}

288eof :: Monad m => Parser m a ()

289eof = Parser step initial return

290

@@ -805,7 +805,7 @@ data GroupByStatePair a s1 s2

805 | GroupByGroupingPairL !a !s1 !s2

806 | GroupByGroupingPairR !a !s1 !s2

807

808−{-# INLINABLE groupByRollingEither #-}

808+{-# INLINE groupByRollingEither #-}

809groupByRollingEither :: MonadCatch m =>

810 (a -> a -> Bool) -> Fold m a b -> Fold m a c -> Parser m a (Either b c)

811groupByRollingEither