Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
type error = [
| `V1 of H1.Client_connection.error
| `V2 of H2.Client_connection.error
| `Protocol of string
| `Exn of exn
]
type ('resp, 'body) version =
| V1 : (H1.Response.t, H1.Body.Writer.t) version
| V2 : (H2.Response.t, H2.Body.Writer.t) version
exception Error of error
type 'acc process =
| Process : {
version : ('resp, 'body) version;
acc : 'acc ref;
response : 'resp Miou.Computation.t;
body : 'body;
process : unit Miou.t;
} -> 'acc process