@@ -97,9 +97,9 @@ main = hspec $ do
97 it "Nest <|>, <>, <|> (2)" $
97 it "Nest <|>, <>, <|> (2)" $
98 let t = timed
98 let t = timed
99 in toList (
99 in toList (
100− ((t 4 <|> t 8) <> (t 0 <|> t 2))
100+ ((t 4 <|> t 8) <> (t 1 <|> t 2))
101− <|> ((t 4 <|> t 8) <> (t 0 <|> t 2)))
101+ <|> ((t 4 <|> t 8) <> (t 1 <|> t 2)))
102− `shouldReturn` ([4,4,8,8,0,0,2,2])
102+ `shouldReturn` ([4,4,8,8,1,1,2,2])
103 it "Nest <|>, <=>, <|> (1)" $
103 it "Nest <|>, <=>, <|> (1)" $
104 let t = timed
104 let t = timed
105 in toList (
105 in toList (