module IO : Cohttp.S.IO
type 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.t
val execute_request : 'ctx schema -> 'ctx -> Cohttp.Request.t -> body -> response_action IO.t
val make_callback : (Cohttp.Request.t -> 'ctx) -> 'ctx schema -> 'conn callback