@@ -32,9 +32,9 @@ main = hspec $ do
32 describe "Bind" bind
32 describe "Bind" bind
34 describe "Serial Composition (<>)" $ compose (<>) id
34 describe "Serial Composition (<>)" $ compose (<>) id
35+ describe "Serial interleaved (<=>)" $ interleaved (<=>)
35 describe "Left Biased parallel Composition (<|)" $ compose (<|) sort
36 describe "Left Biased parallel Composition (<|)" $ compose (<|) sort
36 describe "Fair parallel Composition (<|>)" $ compose (<|>) sort
37 describe "Fair parallel Composition (<|>)" $ compose (<|>) sort
37− describe "Serial interleaved (<=>)" $ interleaved (<=>)
38 -- This is not predicatable
38 -- This is not predicatable
39 -- describe "Parallel interleaved (<|>)" $ interleaved (<|>)
39 -- describe "Parallel interleaved (<|>)" $ interleaved (<|>)