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

-> hardcode config

Browse source
This commit is contained in:
swrup 2025-10-13 11:48:29 +02:00
parent a99eefc9e5
commit 592ebee9a3
4 changed files with 108 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/headers.ml
View file

@ -25,14 +25,14 @@ let select_language headers =
|> Cohttp.Accept.qsort
|> List.map (fun (_q, lang) -> lang)
|> List.map (function
| Cohttp.Accept.AnyLanguage -> Assets.Config.default_lang
| Cohttp.Accept.AnyLanguage -> Assets.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:Assets.Config.default_lang
|> Option.value ~default:Assets.default_lang
let select_encoding headers =
Vif.Headers.get headers "accept-encoding"
@ -43,7 +43,7 @@ let select_encoding headers =
| Cohttp.Accept.Identity -> Some `Identity
| Deflate -> Some `DEFLATE
| Gzip -> Some `Gzip
| AnyEncoding -> Some Assets.Config.default_encoding
| AnyEncoding -> Some Assets.default_encoding
| Encoding _ | Compress -> (* unsupported *) None)
|> function
| [] -> assert false