mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 11:37:22 +03:00
Add Fuse annotation ParseD.GroupByState
This commit is contained in:
parent
195606428c
commit
7500c72e6b
@ -161,6 +161,7 @@ where
|
|||||||
|
|
||||||
import Control.Exception (assert)
|
import Control.Exception (assert)
|
||||||
import Control.Monad.Catch (MonadCatch, MonadThrow(..))
|
import Control.Monad.Catch (MonadCatch, MonadThrow(..))
|
||||||
|
import Fusion.Plugin.Types (Fuse(..))
|
||||||
import Streamly.Internal.Data.Fold.Types (Fold(..))
|
import Streamly.Internal.Data.Fold.Types (Fold(..))
|
||||||
import Streamly.Internal.Data.Tuple.Strict (Tuple'(..))
|
import Streamly.Internal.Data.Tuple.Strict (Tuple'(..))
|
||||||
|
|
||||||
@ -626,6 +627,7 @@ wordBy predicate (Fold fstep finitial fextract) = Parser step initial extract
|
|||||||
extract (WBWord s) = fextract s
|
extract (WBWord s) = fextract s
|
||||||
extract (WBRight b) = return b
|
extract (WBRight b) = return b
|
||||||
|
|
||||||
|
{-# ANN type GroupByState Fuse #-}
|
||||||
data GroupByState a s
|
data GroupByState a s
|
||||||
= GroupByInit !s
|
= GroupByInit !s
|
||||||
| GroupByGrouping !a !s
|
| GroupByGrouping !a !s
|
||||||
|
Loading…
Reference in New Issue
Block a user