module IO : Cohttp.S.IOtype response_action = [ | `Expert of Cohttp.Response.t * (IO.ic -> IO.oc -> unit IO.t) |
| `Response of Cohttp.Response.t * body |
]type 'conn callback = 'conn -> Cohttp.Request.t -> body -> response_action IO.tval execute_request : 'ctx schema -> 'ctx -> Cohttp.Request.t -> body -> response_action IO.tval make_callback : (Cohttp.Request.t -> 'ctx) -> 'ctx schema -> 'conn callback