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

Browse source
This commit is contained in:
swrup 2026-02-12 09:34:05 +01:00
parent 67702313de
commit 8e986dc86f
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/static.ml
View file

@ -33,7 +33,7 @@ let aux asset req _server _env =
match Vif.Headers.get headers "if-none-match" with match Vif.Headers.get headers "if-none-match" with
| None -> Ok false | None -> Ok false
| Some s -> | Some s ->
Headers_lib.Etag.parse s |> Result.map (Headers_lib.Etag.evaluate etag) Result.map (Headers_lib.Etag.evaluate etag) (Headers_lib.Etag.parse s)
in in
match has_matching_etag with match has_matching_etag with
| Error e -> | Error e ->
@ -59,7 +59,6 @@ let aux asset req _server _env =
(* todo: is it "taler-privacy-version" for /policy ? *) (* todo: is it "taler-privacy-version" for /policy ? *)
add ~field:"taler-terms-version" (Assets.legal_version asset) add ~field:"taler-terms-version" (Assets.legal_version asset)
in in
(* TODO add compression and mimetype headers too *)
let* () = let* () =
add ~field:"avail-languages" Headers.avail_languages_header_value add ~field:"avail-languages" Headers.avail_languages_header_value
in in