Variants (async_kernel.async_kernel.persistent_connection_kernel.Persistent_connection

val attempting_to_connect : 
  'conn 'conn_error 'address. ('conn, 'conn_error, 'address) t
                                Variantslib.Variant.t

val obtained_address : 
  'conn 'conn_error 'address. ('address ->
                                ('conn, 'conn_error, 'address) t)
                                Variantslib.Variant.t

val failed_to_connect : 
  'conn 'conn_error 'address. ('conn_error ->
                                ('conn, 'conn_error, 'address) t)
                                Variantslib.Variant.t

val connected : 
  'conn 'conn_error 'address. ('conn ->
                                ('conn, 'conn_error, 'address) t)
                                Variantslib.Variant.t

val disconnected : 
  'conn 'conn_error 'address. ('conn, 'conn_error, 'address) t
                                Variantslib.Variant.t

val fold : 
  'acc__0 'acc__1 'acc__2 'acc__3 'acc__4 'acc__5 'conn 'conn_error 'address. 
  init:
    'acc__0 ->
  attempting_to_connect:
    ('acc__0 ->
      ('conn, 'conn_error, 'address) t Variantslib.Variant.t ->
      'acc__1) ->
  obtained_address:
    ('acc__1 ->
      ('address -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'acc__2) ->
  failed_to_connect:
    ('acc__2 ->
      ('conn_error -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'acc__3) ->
  connected:
    ('acc__3 ->
      ('conn -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'acc__4) ->
  disconnected:
    ('acc__4 ->
      ('conn, 'conn_error, 'address) t Variantslib.Variant.t ->
      'acc__5) ->
  'acc__5

val iter : 
  'conn 'conn_error 'address. attempting_to_connect:
                                (('conn, 'conn_error, 'address) t
                                   Variantslib.Variant.t ->
                                  unit) ->
  obtained_address:
    (('address -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      unit) ->
  failed_to_connect:
    (('conn_error -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      unit) ->
  connected:
    (('conn -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t -> unit) ->
  disconnected:(('conn, 'conn_error, 'address) t Variantslib.Variant.t -> unit) ->
  unit

val map : 
  'result__ 'conn 'conn_error 'address. ('conn, 'conn_error, 'address) t ->
  attempting_to_connect:
    (('conn, 'conn_error, 'address) t Variantslib.Variant.t -> 'result__) ->
  obtained_address:
    (('address -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'address ->
      'result__) ->
  failed_to_connect:
    (('conn_error -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'conn_error ->
      'result__) ->
  connected:
    (('conn -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'conn ->
      'result__) ->
  disconnected:
    (('conn, 'conn_error, 'address) t Variantslib.Variant.t -> 'result__) ->
  'result__

val make_matcher : 
  'result__ 'acc__0 'acc__1 'acc__2 'acc__3 'acc__4 'acc__5 'conn 'conn_error 'address. 
  attempting_to_connect:
    (('conn, 'conn_error, 'address) t Variantslib.Variant.t ->
      'acc__0 ->
      (unit -> 'result__) * 'acc__1) ->
  obtained_address:
    (('address -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'acc__1 ->
      ('address -> 'result__) * 'acc__2) ->
  failed_to_connect:
    (('conn_error -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'acc__2 ->
      ('conn_error -> 'result__) * 'acc__3) ->
  connected:
    (('conn -> ('conn, 'conn_error, 'address) t) Variantslib.Variant.t ->
      'acc__3 ->
      ('conn -> 'result__) * 'acc__4) ->
  disconnected:
    (('conn, 'conn_error, 'address) t Variantslib.Variant.t ->
      'acc__4 ->
      (unit -> 'result__) * 'acc__5) ->
  'acc__0 ->
  (('conn, 'conn_error, 'address) t -> 'result__) * 'acc__5

val to_rank : 
  'conn 'conn_error 'address. ('conn, 'conn_error, 'address) t @ local ->
  int

val to_name : 
  'conn 'conn_error 'address. ('conn, 'conn_error, 'address) t ->
  string

val descriptions : 'conn 'conn_error 'address. (string * int) list