@@ -109,9 +109,9 @@ main = hspec $ do
109 it "Nest <|>, <=>, <|> (2)" $
109 it "Nest <|>, <=>, <|> (2)" $
110 let t = timed
110 let t = timed
111 in toList (
111 in toList (
112− ((t 4 <|> t 8) <=> (t 0 <|> t 2))
112+ ((t 4 <|> t 8) <=> (t 1 <|> t 2))
113− <|> ((t 4 <|> t 9) <=> (t 0 <|> t 2)))
113+ <|> ((t 4 <|> t 9) <=> (t 1 <|> t 2)))
114− `shouldReturn` ([4,4,0,0,8,2,9,2])
114+ `shouldReturn` ([4,4,1,1,8,2,9,2])
115 it "Nest <|>, <|>, <|>" $
115 it "Nest <|>, <|>, <|>" $
116 let t = timed
116 let t = timed
117 in toList (
117 in toList (