Module Private.CallbackSource

Sourcetype 'a effect := 'a t
Sourcetype ('a, 'b) t
Sourceval make : request:'a -> on_response:('b -> Base.unit effect) -> ('a, 'b) t
Sourceval request : ('a, 'b) t -> 'a
Sourceval respond_to : ('a, 'b) t -> 'b -> Base.unit effect