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

~ util; add Protocol_version

Browse source
This commit is contained in:
Swrup 2025-09-29 00:45:45 +02:00
parent c3e81293af
commit 6f85658845
3 changed files with 38 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/assets.ml
View file

@ -75,12 +75,6 @@ let supported_lang_arr, supported_ext_arr =
let lang_l, ext_l = aux Terms in
let lang_l', ext_l' = aux Privacy in
let () =
List.iter
(fun path ->
if not @@ Util.is_valid_filename path then
Fmt.failwith "file `%s` has an unsupported extension"
(Fpath.to_string path))
path_l;
if
not
@@ (List.equal String.equal lang_l lang_l'
@ -94,7 +88,7 @@ let supported_lang_arr, supported_ext_arr =
(Array.of_list lang_l, Array.of_list ext_l)
let supported_mimetype_arr =
Array.map Util.extension_to_mimetype supported_ext_arr |> Array.map Option.get
Array.map Util.Mimetype.of_extension supported_ext_arr |> Array.map Option.get
let is_supported_lang lang = Array.mem lang supported_lang_arr
let is_supported_ext ext = Array.mem ext supported_ext_arr
@ -107,7 +101,7 @@ let is_supported_mimetype mime = Array.mem mime supported_mimetype_arr
let get_content ~lang ~mime t =
let etag = Headers_lib.Etag.to_raw_string (etag t) in
let ext =
match Util.mimetype_to_extension mime with
match Util.Mimetype.to_extension mime with
| None -> Fmt.failwith "mimetype `%s/%s` unknown" (fst mime) (snd mime)
| Some ext -> ext
in