@@ -363,19 +363,19 @@ zipOps :: (Streaming t, Applicative (t IO))
364zipOps z zM app = do
364zipOps z zM app = do
365 it "zipWith" $
365 it "zipWith" $
366− let s1 = foldMapWith (<|>) return [1..10]
366+ let s1 = foldMapWith (<>) return [1..10]
367 s2 = foldMapWith (<>) return [1..]
367 s2 = foldMapWith (<>) return [1..]
368 in toListSerial (z (+) s1 s2)
368 in toListSerial (z (+) s1 s2)
369 `shouldReturn` ([2,4..20] :: [Int])
369 `shouldReturn` ([2,4..20] :: [Int])
371 it "zipWithM" $
371 it "zipWithM" $
372− let s1 = foldMapWith (<|>) return [1..10]
372+ let s1 = foldMapWith (<>) return [1..10]
373 s2 = foldMapWith (<>) return [1..]
373 s2 = foldMapWith (<>) return [1..]
374 in toListSerial (zM (\a b -> return (a + b)) s1 s2)
374 in toListSerial (zM (\a b -> return (a + b)) s1 s2)
375 `shouldReturn` ([2,4..20] :: [Int])
375 `shouldReturn` ([2,4..20] :: [Int])
377 it "Applicative zip" $
377 it "Applicative zip" $
378− let s1 = adapt $ serially $ foldMapWith (<|>) return [1..10]
378+ let s1 = adapt $ serially $ foldMapWith (<>) return [1..10]
379 s2 = adapt $ serially $ foldMapWith (<>) return [1..]
379 s2 = adapt $ serially $ foldMapWith (<>) return [1..]
380 in (A.toList . app) ((+) <$> s1 <*> s2)
380 in (A.toList . app) ((+) <$> s1 <*> s2)
381 `shouldReturn` ([2,4..20] :: [Int])
381 `shouldReturn` ([2,4..20] :: [Int])