From 845900960b7fa49340934decddb3cbaac250b636 Mon Sep 17 00:00:00 2001 From: swrup Date: Thu, 12 Feb 2026 12:51:59 +0100 Subject: [PATCH] --- src/assets.ml | 5 ----- src/static.ml | 5 +++-- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/src/assets.ml b/src/assets.ml index ead25ffc..1826b27e 100644 --- a/src/assets.ml +++ b/src/assets.ml @@ -17,16 +17,11 @@ module Assets_config = struct (* TODO this should be in the config like terms_etag *) let terms_legal_version = "0" - let privacy_legal_version = "0" end let etag k = match k with Terms -> Config.terms_etag | Privacy -> Config.privacy_etag -let legal_version = function - | Terms -> Assets_config.terms_legal_version - | Privacy -> Assets_config.privacy_legal_version - let supported_lang_arr, supported_ext_arr = let aux t = let prefix = Fpath.v (Assets_config.base_dir t) in diff --git a/src/static.ml b/src/static.ml index 6d556931..4dca972a 100644 --- a/src/static.ml +++ b/src/static.ml @@ -27,8 +27,8 @@ let aux asset req _server _env = add ~field:"etag" etag_field_value in let* () = - (* todo: is it "taler-privacy-version" for /policy ? *) - add ~field:"taler-terms-version" (Assets.legal_version asset) + add ~field:"taler-terms-version" + Assets.Assets_config.terms_legal_version in let* () = add ~field:"avail-languages" Headers.avail_languages_header_value @@ -37,6 +37,7 @@ let aux asset req _server _env = let content_type = Fmt.str "%a" Assets.Mimetype.pp mime in add ~field:"content-type" content_type in + let* () = add ~field:"content-language" lang in respond `OK let terms req _server _env =