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

+ s/Vif/Vifu/

Browse source
This commit is contained in:
swrup 2026-03-12 12:23:57 +01:00
parent 69755537f6
commit 96f10ec373
7 changed files with 57 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/headers.ml
View file

@ -9,7 +9,7 @@ let avail_languages_header_value =
(* TODO better headers_lib
Cohttp raises on invalid *)
let select_mimetype headers =
let opt = Vif.Headers.get headers "accept" in
let opt = Vifu.Headers.get headers "accept" in
Cohttp.Accept.media_ranges opt
|> Cohttp.Accept.qsort
|> List.find_map (fun (_q, (m, _p)) -> Assets.Mimetype.of_cohttp m)
@ -18,7 +18,7 @@ let select_mimetype headers =
| Some mime -> mime
let select_language headers =
let opt = Vif.Headers.get headers "accept-language" in
let opt = Vifu.Headers.get headers "accept-language" in
Cohttp.Accept.languages opt
|> Cohttp.Accept.qsort
|> List.map snd
@ -28,7 +28,7 @@ let select_language headers =
| Some lang -> lang
let select_encoding headers =
let opt = Vif.Headers.get headers "accept-encoding" in
let opt = Vifu.Headers.get headers "accept-encoding" in
Cohttp.Accept.encodings opt
|> Cohttp.Accept.qsort
|> List.map snd