module Operators:Handy operators:sig
..end
++
, >>
, and eps_e
val (++) : 'a #Uq_engines.engine ->
('a -> 'b #Uq_engines.engine) -> 'b Uq_engines.engine
seq_engine
. Use this operator to run engines in
sequence:
e1 ++ (fun r1 -> e2) ++ (fun r2 -> e3) ++ ...
Here rK
is the result of engine eK
.
val (>>) : 'a #Uq_engines.engine ->
('a Uq_engines.final_state -> 'a Uq_engines.final_state) ->
'a Uq_engines.engine
fmap_engine
. Use this operator to map the
final value of an engine:
e >> (function `Done x -> ... | `Error e -> ... | `Aborted -> ...)
val eps_e : 'a Uq_engines.engine_state -> Unixqueue.event_system -> 'a Uq_engines.engine
epsilon_engine