module Concurrent.Unamb where import Concurrent.Unamb.Unsafe unamb_ :: a -> b -> () unamb_ x y = unamb (seq x ()) (seq y ())