@@ -92,7 +92,7 @@ evalStateT initial (Stream step state) = Stream step' (state, initial)
9292 {-# INLINE_LATE step' #-}
9393 step' gst (st, action) = do
9494 sv <- action
95− (r, sv') <- State.runStateT (step (adaptState gst) st) sv
95+ (r, !sv') <- State.runStateT (step (adaptState gst) st) sv
9696 return $ case r of
9797 Yield x s -> Yield x (s, return sv')
9898 Skip s -> Skip (s, return sv')
@@ -105,7 +105,7 @@ runStateT initial (Stream step state) = Stream step' (state, initial)
105105 {-# INLINE_LATE step' #-}
106106 step' gst (st, action) = do
107107 sv <- action
108− (r, sv') <- State.runStateT (step (adaptState gst) st) sv
108+ (r, !sv') <- State.runStateT (step (adaptState gst) st) sv
109109 return $ case r of
110110 Yield x s -> Yield (sv', x) (s, return sv')
111111 Skip s -> Skip (s, return sv')