type 'a t
=
|
Stop of 'a
Continue
Wait of unit Async_kernel.Deferred.t
Result of an on_message callback. We split the Continue and Wait _ cases to make it clear that Continue is the expected case. The implementation should be optimized for this case.
on_message
Wait _