@@ -658,7 +658,7 @@ streamOperations (stream, list, len) = do
658 it "iterateM" $ do
658 it "iterateM" $ do
659 let addM = (\ y -> return (y + 1))
659 let addM = (\ y -> return (y + 1))
660 A.toList . serially . (A.take len) $ A.iterateM addM (0 :: Int)
660 A.toList . serially . (A.take len) $ A.iterateM addM (0 :: Int)
661− `shouldReturn` (take len $ iterate (+ 1) 0)
661+ `shouldReturn` (take len $ iterate (+ 1) 0)
664 -- Filtering
664 -- Filtering