@@ -956,7 +956,7 @@ findIndices :: Monad m => (a -> Bool) -> Stream m a -> Stream m Int
956956findIndices p (Stream step state) = Stream step' (state, 0)
957957 where
958958 {-# INLINE_LATE step' #-}
959− step' gst (st, i) = do
959+ step' gst (st, i) = i `seq` do
960960 r <- step (adaptState gst) st
961961 return $ case r of
962962 Yield x s -> if p x then Yield i (s, i+1) else Skip (s, i+1)