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

better if-not-match

Browse source
This commit is contained in:
swrup 2026-02-12 11:25:57 +01:00 • committed by Swrup
parent 387484d1c2
commit b5375b5634
7 changed files with 107 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/static.ml
View file

@ -33,7 +33,8 @@ let aux asset req _server _env =
match Vif.Headers.get headers "if-none-match" with
| None -> Ok false
| Some s ->
Result.map (Headers_lib.Etag.evaluate etag) (Headers_lib.Etag.parse s)
Headers_lib.If_none_match.parse s
|> Result.map (Headers_lib.If_none_match.evaluate etag)
in
match has_matching_etag with
| Error e ->
@ -52,7 +53,7 @@ let aux asset req _server _env =
let open Syntax in
let* () = with_string ?compression req data in
let* () =
let etag_field_value = Headers_lib.Etag.to_field_value etag in
let etag_field_value = Headers_lib.Etag.to_field_string etag in
add ~field:"etag" etag_field_value
in
let* () =