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

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 =