composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-08-16 15:00:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add Fuse annotation ParseD.GroupByState

Browse Source
This commit is contained in:
Adithya Kumar 2021-02-14 01:34:21 +05:30 committed by Adithya Kumar
parent 195606428c
commit 7500c72e6b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Streamly/Internal/Data/Parser/ParserD.hs
View File

@ -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