@@ -35,7 +35,8 @@ main = hspec $ do
35 describe "Left Biased parallel Composition (<|)" $ compose (<|) sort
35 describe "Left Biased parallel Composition (<|)" $ compose (<|) sort
36 describe "Fair parallel Composition (<|>)" $ compose (<|>) sort
36 describe "Fair parallel Composition (<|>)" $ compose (<|>) sort
37 describe "Serial interleaved (<=>)" $ interleaved (<=>)
37 describe "Serial interleaved (<=>)" $ interleaved (<=>)
38+ -- This is not predicatable
38− describe "Parallel interleaved (<|>)" $ interleaved (<|>)
39+ -- describe "Parallel interleaved (<|>)" $ interleaved (<|>)
40 describe "Serial loops (<>)" $ loops (<>) id reverse
41 describe "Serial loops (<>)" $ loops (<>) id reverse
41 describe "Left Biased parallel loops (<|)" $ loops (<|) sort sort
42 describe "Left Biased parallel loops (<|)" $ loops (<|) sort sort