Module Httpcats.Client

type config = [
  1. | `V1 of H1.Config.t
  2. | `V2 of H2.Config.t
]
type flow = [
  1. | `Tls of Tls_miou_unix.t
  2. | `Tcp of Miou_unix.file_descr
]
type request = [
  1. | `V1 of H1.Request.t
  2. | `V2 of H2.Request.t
]
type response = [
  1. | `V1 of H1.Response.t
  2. | `V2 of H2.Response.t
]
type error = [
  1. | `V1 of H1.Client_connection.error
  2. | `V2 of H2.Client_connection.error
  3. | `Protocol of string
  4. | `Exn of exn
]
val pp_error : error Fmt.t
exception Error of error
type 'acc process =
  1. | Process : {
    1. version : ('conn, 'resp, 'body) version;
    2. acc : 'acc ref;
    3. response : 'resp Miou.Computation.t;
    4. body : 'body;
    5. conn : 'conn;
    6. process : unit Miou.t;
    } -> 'acc process
val run : f:(response -> 'acc -> string -> 'acc) -> 'acc -> config -> flow -> request -> 'acc process