@@ -83,6 +83,8 @@ commonOpConfigs =
8383 , ("maxThreads 0", Async.maxThreads 0)
8484 , ("maxThreads 1", Async.maxThreads 1)
8585 , ("eagerEval", Async.eagerEval)
86+ -- XXX Need to use an unsorted eq operation for ahead
87+ , ("ordered", Async.ordered)
8688#ifdef USE_LARGE_MEMORY
8789 , ("maxThreads -1", Async.maxThreads (-1))
8890#endif
@@ -238,6 +240,7 @@ main = hspec
238240 prop "mapM (+1)" $
239241 transform (fmap (+1)) (Async.mapM (\x -> return (x + 1)))
240242
243+ -- XXX Need to use eq instead of sortEq for ahead oeprations
241244 -- Binary append
242245 prop1 "append [] []"
243246 $ cmp (Stream.nil `Async.append` Stream.nil) sortEq []