module Make_output (Model : Api.OUTPUT_MODEL) : sig .. end
(
Model
:
Api.OUTPUT_MODEL
)
sig
end
Make_output(Asynchronous_output_model)
val output : ('a, 'b, 'c) Model.channel -> Api.BASIC_STRING.t -> (unit, 'e, 'f) Model.thread
('a, 'b, 'c) Model.channel -> Api.BASIC_STRING.t -> (unit, 'e, 'f) Model.thread