val return :
?status:reply_status ->
?extra:(string * string) list ->
typ:string ->
string ->
[> `Body of reply_status reply' ] Lwt.tval text :
?status:reply_status ->
?extra:(string * string) list ->
string ->
[> `Body of reply_status reply' ] Lwt.tval binary :
?status:reply_status ->
?extra:(string * string) list ->
string ->
[> `Body of reply_status reply' ] Lwt.tval printf :
?status:reply_status ->
?extra:(string * string) list ->
('a, unit, string, [> `Body of reply_status reply' ] Lwt.t) Stdlib.format4 ->
'aval json :
?status:reply_status ->
?extra:(string * string) list ->
string ->
[> `Body of reply_status reply' ] Lwt.tval yojson :
?status:reply_status ->
?extra:(string * string) list ->
Yojson.Safe.t ->
[> `Body of reply_status reply' ] Lwt.tval error : reply_status -> string -> [> `Body of reply_status reply' ] Lwt.tval not_found : string -> [> `Body of reply_status reply' ] Lwt.tval bad_request : string -> [> `Body of reply_status reply' ] Lwt.tval internal_error : string -> [> `Body of reply_status reply' ] Lwt.tval rest :
show_exn:bool ->
request ->
((module Args) ->
(meth * string) ->
[> `Body of reply_status reply' ] as 'a Lwt.t) ->
'a Lwt.t