@@ -74,6 +74,7 @@ import Data.Functor.Identity (Identity(..))
7474import GHC.Base (build)
7575import GHC.Types (SPEC(..))
7676import Prelude hiding (map, mapM, foldr, take, concatMap)
77+import Fusion.Plugin.Types (Fuse(..))
7778
7879import Streamly.Internal.Data.SVar (State(..), adaptState, defState)
7980import Streamly.Internal.Data.Fold.Types (Fold(..), Fold2(..))
@@ -87,6 +88,7 @@ import qualified Streamly.Internal.Data.Stream.StreamK as K
8788-- | A stream is a succession of 'Step's. A 'Yield' produces a single value and
8889-- the next state of the stream. 'Stop' indicates there are no more values in
8990-- the stream.
91+{-# ANN type Step Fuse #-}
9092data Step s a = Yield a s | Skip s | Stop
9193
9294instance Functor (Step s) where