7500c72 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Add Fuse annotation ParseD.GroupByState

7500c72Adithya Kumar6 years ago

src/Streamly/Internal/Data/Parser/ParserD.hs+2

@@ -161,6 +161,7 @@ where

161

162import Control.Exception (assert)

163import Control.Monad.Catch (MonadCatch, MonadThrow(..))

164+import Fusion.Plugin.Types (Fuse(..))

164import Streamly.Internal.Data.Fold.Types (Fold(..))

165import Streamly.Internal.Data.Fold.Types (Fold(..))

165import Streamly.Internal.Data.Tuple.Strict (Tuple'(..))

166import Streamly.Internal.Data.Tuple.Strict (Tuple'(..))

166

167

@@ -626,6 +627,7 @@ wordBy predicate (Fold fstep finitial fextract) = Parser step initial extract

626 extract (WBWord s) = fextract s

627 extract (WBWord s) = fextract s

627 extract (WBRight b) = return b

628 extract (WBRight b) = return b

628

629

630+{-# ANN type GroupByState Fuse #-}

629data GroupByState a s

631data GroupByState a s

630 = GroupByInit !s

632 = GroupByInit !s

631 | GroupByGrouping !a !s

633 | GroupByGrouping !a !s