@@ -161,6 +161,7 @@ where
161161
162162import Control.Exception (assert)
163163import Control.Monad.Catch (MonadCatch, MonadThrow(..))
164+import Fusion.Plugin.Types (Fuse(..))
164165import Streamly.Internal.Data.Fold.Types (Fold(..))
165166import Streamly.Internal.Data.Tuple.Strict (Tuple'(..))
166167
@@ -626,6 +627,7 @@ wordBy predicate (Fold fstep finitial fextract) = Parser step initial extract
626627 extract (WBWord s) = fextract s
627628 extract (WBRight b) = return b
628629
630+{-# ANN type GroupByState Fuse #-}
629631data GroupByState a s
630632 = GroupByInit !s
631633 | GroupByGrouping !a !s