swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

+ s/Vif/Vifu/

Browse source
This commit is contained in:
swrup 2026-03-12 12:23:57 +01:00
parent 69755537f6
commit 96f10ec373
7 changed files with 57 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/respond.ml
View file

@ -4,7 +4,7 @@ let encode_error_detail err =
| Ok s -> s
let respond_json req content status =
let open Vif.Response in
let open Vifu.Response in
let open Syntax in
let* () = add ~field:"content-type" "application/json" in
let* () = with_string req content in
@ -32,14 +32,14 @@ let ok content req =
let no_content () =
Logs.debug (fun m -> m "no content");
let open Vif.Response in
let open Vifu.Response in
let open Syntax in
let* () = empty in
respond `No_content
let not_modified () =
Logs.debug (fun m -> m "not modified");
let open Vif.Response in
let open Vifu.Response in
let open Syntax in
let* () = empty in
respond `Not_modified