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

rename

Browse source
This commit is contained in:
swrup 2025-10-13 03:16:45 +02:00
parent 65a2837fd9
commit 543c947da8
7 changed files with 203 additions and 204 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/assets.ml
View file

@ -13,16 +13,16 @@ type t =
| Privacy
let etag = function
| Terms -> Config_mte.terms_etag
| Privacy -> Config_mte.privacy_etag
| Terms -> Config.terms_etag
| Privacy -> Config.privacy_etag
let legal_version = function
| Terms -> Config_mte.terms_legal_version
| Privacy -> Config_mte.privacy_legal_version
| Terms -> Config.terms_legal_version
| Privacy -> Config.privacy_legal_version
let base_dir = function
| Terms -> Config_mte.terms_dir
| Privacy -> Config_mte.privacy_dir
| Terms -> Config.terms_dir
| Privacy -> Config.privacy_dir
(* TODO
better use of Fmt to have error prefix or smthing
@ -55,9 +55,8 @@ let supported_lang_arr, supported_ext_arr =
let () =
if List.is_empty lang_l then Fmt.failwith "no language supported";
if List.is_empty ext_l then Fmt.failwith "no mimetype supported";
if not @@ List.mem Config_mte.default_lang lang_l then
Fmt.failwith "default language `%s` files not found"
Config_mte.default_lang;
if not @@ List.mem Config.default_lang lang_l then
Fmt.failwith "default language `%s` files not found" Config.default_lang;
if not @@ List.mem ".txt" ext_l then
Fmt.failwith "plain text file not found";
if not @@ List.mem ".md" ext_l then Fmt.failwith "markdown file not found";