@@ -1359,8 +1359,7 @@ indexedR m (Stream step state) = Stream step' (state, m)
13591359 r <- step (adaptState gst) st
13601360 case r of
13611361 Yield x s -> let i' = i - 1
1362− in
1363− return $ Yield (i', x) (s, i')
1362+ in return $ Yield (i, x) (s, i')
13641363 Skip s -> return $ Skip (s, i)
13651364 Stop -> return Stop
13661365