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.Monad.Catch (MonadCatch, MonadThrow(..))
|
||||
import Fusion.Plugin.Types (Fuse(..))
|
||||
import Streamly.Internal.Data.Fold.Types (Fold(..))
|
||||
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 (WBRight b) = return b
|
||||
|
||||
{-# ANN type GroupByState Fuse #-}
|
||||
data GroupByState a s
|
||||
= GroupByInit !s
|
||||
| GroupByGrouping !a !s
|
||||
|
Loading…
Reference in New Issue
Block a user