Make.Local_sinkinclude Mina_net2.Sink.S
with type msg :=
Resource_pool.Diff.t
* ( ([ `Broadcasted | `Not_broadcasted ]
* Resource_pool.Diff.t
* Resource_pool.Diff.rejected)
Core_kernel.Or_error.t ->
unit )val push :
t ->
(Resource_pool.Diff.t
* ( ([ `Broadcasted | `Not_broadcasted ]
* Resource_pool.Diff.t
* Resource_pool.Diff.rejected)
Core_kernel.Or_error.t ->
unit )) ->
unit Async_kernel.Deferred.tval void : t