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

9
src/parse_config.ml
View file

@ -189,6 +189,15 @@ let ed25519 s =
|> Result.map_error (fun e -> Fmt.str "%a" Mirage_crypto_ec.pp_error e)
|> unwrap
let etag s =
match Headers_lib.Etag.parse s with
| Ok etag -> etag
| Error e -> (
(* retry with quotes if needed *)
match Headers_lib.Etag.parse (Fmt.str "\"%s\"" s) with
| Ok etag -> etag
| Error _ -> fail "could not parse etag `%s`: %s" s e)
(* TODO
move to another module
can we type the json as a Int_map directly? *)