type t
type error
= [
| `Bad_request |
| `Bad_gateway |
| `Internal_server_error |
| `Exn of exn |
]
val request : t -> Request.t
val request_body : t -> [ `read ] Body.t
val response : t -> Response.t option
val response_exn : t -> Response.t
val respond_with_string : t -> Response.t -> string -> unit
val respond_with_bigstring : t -> Response.t -> Bigstringaf.t -> unit
val respond_with_streaming : ?flush_headers_immediately:bool -> t -> Response.t -> [ `write ] Body.t
val respond_with_upgrade : t -> Headers.t -> (unit -> unit) -> unit
val error_code : t -> error option
val report_exn : t -> exn -> unit
val try_with : t -> (unit -> unit) -> (unit, exn) Result.result