Writer_result (network_pool.Network_pool.Writer

module Tree : sig ... end

type ('a, 'x, 'e) t0 = ( 'a * 'x Tree.t, 'e ) Core_kernel.Result.t

module type S = sig ... end

module T : sig ... end

include module type of struct include T end

type ('a, 'x, 'e) t = ( 'a * 'x Tree.t, 'e ) Core_kernel.Result.t

val (>>=) : 
  ( 'a, 'd, 'e ) T.t ->
  ( 'a -> ( 'b, 'd, 'e ) T.t ) ->
  ( 'b, 'd, 'e ) T.t

val (>>|) : ( 'a, 'd, 'e ) T.t -> ( 'a -> 'b ) -> ( 'b, 'd, 'e ) T.t

module Let_syntax : sig ... end

module Monad_infix : sig ... end

val bind : 
  ( 'a, 'd, 'e ) T.t ->
  f:( 'a -> ( 'b, 'd, 'e ) T.t ) ->
  ( 'b, 'd, 'e ) T.t

val return : 'a -> ( 'a, 'b, 'c ) T.t

val map : ( 'a, 'd, 'e ) T.t -> f:( 'a -> 'b ) -> ( 'b, 'd, 'e ) T.t

val join : ( ( 'a, 'd, 'e ) T.t, 'd, 'e ) T.t -> ( 'a, 'd, 'e ) T.t

val ignore_m : ( 'a, 'd, 'e ) T.t -> ( unit, 'd, 'e ) T.t

val all : ( 'a, 'd, 'e ) T.t list -> ( 'a list, 'd, 'e ) T.t

val all_unit : ( unit, 'd, 'e ) T.t list -> ( unit, 'd, 'e ) T.t

val catch : 
  ( 'a, 'x, 'e ) t ->
  f:( ( 'a0, 'x0, 'e0 ) t0 -> ( 'b, 'x1, 'e1 ) t ) ->
  ( 'b0, 'x2, 'e2 ) t

val lift : 'a -> 'a

val write : 'x -> ( unit, 'x0, 'e ) t

val write_all : 'x Tree.t -> ( unit, 'x0, 'e ) t

val run : ( 'a, 'x, 'e ) t -> ( 'a0 * 'x0 Tree.t, 'e0 ) Core_kernel.Result.t

val of_result : ( 'a, 'e ) Core_kernel.Result.t -> ( 'a0, 'b, 'e0 ) t

module Deferred : sig ... end