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

add avail-languages header

Browse source
This commit is contained in:
Swrup 2025-09-28 18:36:25 +02:00
parent 0a0eac7cd9
commit 0447857d1e
2 changed files with 19 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/headers.ml
View file

@ -1,3 +1,8 @@
let avail_languages_header_value =
let pp_avail_languages = Fmt.array ~sep:(Fmt.any ", ") Fmt.string in
let s = Fmt.str "%a" pp_avail_languages Assets.supported_lang_arr in
s
let select_extension headers =
let accept = Vif.Headers.get headers "accept" in
Cohttp.Accept.media_ranges accept