@@ -150,12 +150,16 @@ main = hspec $ do
150150 ])
151151
152152 describe "Nested parallel and serial compositions" $ do
153+ {-
154+ -- This is not correct, the result can also be [4,4,8,0,8,0,2,2]
155+ -- because of parallelism of [8,0] and [8,0].
153156 it "Nest <|>, <>, <|> (1)" $
154157 let t = timed
155158 in toListSerial (
156159 ((t 8 <|> t 4) <> (t 2 <|> t 0))
157160 <|> ((t 8 <|> t 4) <> (t 2 <|> t 0)))
158161 `shouldReturn` ([4,4,8,8,0,0,2,2])
162+ -}
159163 it "Nest <|>, <>, <|> (2)" $
160164 let t = timed
161165 in toListSerial (