@@ -109,9 +109,9 @@ main = hspec $ do
109109 it "Nest <|>, <=>, <|> (2)" $
110110 let t = timed
111111 in toList (
112− ((t 4 <|> t 8) <=> (t 0 <|> t 2))
113− <|> ((t 4 <|> t 9) <=> (t 0 <|> t 2)))
114− `shouldReturn` ([4,4,0,0,8,2,9,2])
112+ ((t 4 <|> t 8) <=> (t 1 <|> t 2))
113+ <|> ((t 4 <|> t 9) <=> (t 1 <|> t 2)))
114+ `shouldReturn` ([4,4,1,1,8,2,9,2])
115115 it "Nest <|>, <|>, <|>" $
116116 let t = timed
117117 in toList (