@@ -352,12 +352,14 @@ nestTwoParallelApp =
352 in toListParallel ((+) <$> s1 <*> s2)
352 in toListParallel ((+) <$> s1 <*> s2)
353 `shouldReturn` ([6,7,7,8,8,8,9,9,9,9,10,10,10,11,11,12] :: [Int])
353 `shouldReturn` ([6,7,7,8,8,8,9,9,9,9,10,10,10,11,11,12] :: [Int])
355nestTwoParallelNum :: Expectation
356nestTwoParallelNum :: Expectation
356nestTwoParallelNum =
357nestTwoParallelNum =
357 let s1 = foldMapWith (<>) return [1..4]
358 let s1 = foldMapWith (<>) return [1..4]
358 s2 = foldMapWith (<>) return [5..8]
359 s2 = foldMapWith (<>) return [5..8]
359 in toListParallel (s1 + s2)
360 in toListParallel (s1 + s2)
360 `shouldReturn` ([6,7,7,8,8,8,9,9,9,9,10,10,10,11,11,12] :: [Int])
361 `shouldReturn` ([6,7,7,8,8,8,9,9,9,9,10,10,10,11,11,12] :: [Int])
362zipOps :: (Streaming t, Applicative (t IO))
364zipOps :: (Streaming t, Applicative (t IO))
363 => (forall a b c. (a -> b -> c)
365 => (forall a b c. (a -> b -> c)