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

2
src/headers.ml
View file

@ -10,7 +10,7 @@ let select_mimetype headers =
let accept = Vif.Headers.get headers "accept" in
Cohttp.Accept.media_ranges accept
|> Cohttp.Accept.qsort
|> List.filter_map (fun (_q, (m, _p)) -> Util.media_to_known_mimetype m)
|> List.filter_map (fun (_q, (m, _p)) -> Util.Mimetype.of_cohttp_media m)
|> List.find_opt Assets.is_supported_mimetype
let select_language headers =