@@ -1359,8 +1359,7 @@ indexedR m (Stream step state) = Stream step' (state, m)
1359 r <- step (adaptState gst) st
1359 r <- step (adaptState gst) st
1360 case r of
1360 case r of
1361 Yield x s -> let i' = i - 1
1361 Yield x s -> let i' = i - 1
1363− return $ Yield (i', x) (s, i')
1362+ in return $ Yield (i, x) (s, i')
1364 Skip s -> return $ Skip (s, i)
1363 Skip s -> return $ Skip (s, i)
1365 Stop -> return Stop
1364 Stop -> return Stop