@@ -97,9 +97,9 @@ main = hspec $ do
9797 it "Nest <|>, <>, <|> (2)" $
9898 let t = timed
9999 in toList (
100− ((t 4 <|> t 8) <> (t 0 <|> t 2))
101− <|> ((t 4 <|> t 8) <> (t 0 <|> t 2)))
102− `shouldReturn` ([4,4,8,8,0,0,2,2])
100+ ((t 4 <|> t 8) <> (t 1 <|> t 2))
101+ <|> ((t 4 <|> t 8) <> (t 1 <|> t 2)))
102+ `shouldReturn` ([4,4,8,8,1,1,2,2])
103103 it "Nest <|>, <=>, <|> (1)" $
104104 let t = timed
105105 in toList (