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

wip: better config

Browse source
This commit is contained in:
swrup 2025-10-13 00:29:33 +02:00
parent be2e590e93
commit aaae59ced0
6 changed files with 40 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/headers.ml
View file

@ -19,14 +19,14 @@ let select_language headers =
|> Cohttp.Accept.qsort
|> List.map (fun (_q, lang) -> lang)
|> List.map (function
| Cohttp.Accept.AnyLanguage -> Config.default_lang
| Cohttp.Accept.AnyLanguage -> Config_mte.default_lang
| Language language_range -> (
(* ignore language subtags (e.g. "en-US" -> "en") *)
match language_range with
| [] -> assert false
| primary_tag :: _ -> primary_tag))
|> List.find_opt Assets.is_supported_lang
|> Option.value ~default:Config.default_lang
|> Option.value ~default:Config_mte.default_lang
let select_encoding headers =
Vif.Headers.get headers "accept-encoding"
@ -37,7 +37,7 @@ let select_encoding headers =
| Cohttp.Accept.Identity -> Some `Identity
| Deflate -> Some `DEFLATE
| Gzip -> Some `Gzip
| AnyEncoding -> Some Config.default_encoding
| AnyEncoding -> Some Config_mte.default_encoding
| Encoding _ | Compress -> (* unsupported *) None)
|> function
| [] -> assert false