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