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 08:16:50 +01:00
parent 7ccd0ac600
commit dd9fb910e1
3 changed files with 66 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/headers.ml
View file

@ -1,14 +1,10 @@
(* TODO header
Cohttp -> Http *)
let accept_header_value =
let pp_list pp_item item = Fmt.list ~sep:(Fmt.any ", ") pp_item item in
Fmt.str "%a" (pp_list Assets.Mimetype.pp) Assets.Mimetype.all_supported
Fmt.str "%a"
(Fmt.array ~sep:(Fmt.any ", ") Assets.Mimetype.pp)
Assets.Mimetype.arr
let avail_languages_header_value =
let pp_array pp_item item = Fmt.array ~sep:(Fmt.any ", ") pp_item item in
let s = Fmt.str "%a" (pp_array Fmt.string) Assets.supported_lang_arr in
s
Fmt.str "%a" (Fmt.array ~sep:(Fmt.any ", ") Fmt.string) Assets.Language.arr
let select_mimetype headers =
let opt = Vif.Headers.get headers "accept" in
@ -16,7 +12,7 @@ let select_mimetype headers =
|> Cohttp.Accept.qsort
|> List.find_map (fun (_q, (m, _p)) -> Assets.Mimetype.of_cohttp m)
|> function
| None -> Assets.default_mimetype
| None -> Assets.Mimetype.default
| Some mime -> mime
let select_language headers =
@ -38,7 +34,7 @@ let select_encoding headers =
| Cohttp.Accept.Identity -> Some `Identity
| Deflate -> Some `DEFLATE
| Gzip -> Some `Gzip
| AnyEncoding -> Some Assets.default_encoding
| AnyEncoding -> Some Assets.Assets_config.default_encoding
| Encoding _ | Compress -> (* unsupported *) None)
|> function
| None -> None