23 lines
716 B
OCaml
23 lines
716 B
OCaml
|
let respond_with_plain_text_error ?status e req =
|
||
|
|
let open Vif.Response in
|
||
|
|
let open Syntax in
|
||
|
|
let status = Option.value ~default:`Bad_request status in
|
||
|
|
let* () = add ~field:"content-type" "text/plain; charset=utf-8" in
|
||
|
|
let* () = with_string req e in
|
||
|
|
respond status
|
||
|
|
|
||
|
|
let respond_with_ok_json content req =
|
||
|
|
let open Vif.Response in
|
||
|
|
let open Syntax in
|
||
|
|
let* () = add ~field:"content-type" "application/json" in
|
||
|
|
let* () = with_string req content in
|
||
|
|
respond `OK
|
||
|
|
|
||
|
|
let respond_with_res res req =
|
||
|
|
match res with
|
||
|
|
| Error err ->
|
||
|
|
Logs.err (fun m -> m "%s." err);
|
||
|
|
let err = Fmt.str "%s@." err in
|
||
|
|
respond_with_plain_text_error err req
|
||
|
|
| Ok content -> respond_with_ok_json content req
|