@@ -658,7 +658,7 @@ streamOperations (stream, list, len) = do
658658 it "iterateM" $ do
659659 let addM = (\ y -> return (y + 1))
660660 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)
662662
663663
664664 -- Filtering