wip accepted lang

src/mte.ml

@@ -12,8 +12,27 @@ module Assets = struct
     get Fpath.((Config.privacy_dir / "en" / Config.privacy_etag) + ".html")
 end
 
-let static data req _server _env =
+let static kind req _server _env =
   let open Vif.Response.Syntax in
+  let extension = .. in
+  if not @@ extension is supported then
+    error mimetype not supported
+  else
+
+  let base_dir, etag =
+    let open Config in
+    match kind with
+  | `Terms ->   terms_dir, terms_etag
+  | `Privacy -> privacy_dir, privacy_etag
+  in
+
+  let accepted_lang_l = .. in
+
+
+  (* add headers ... *)
+
+
+
   let* () = Vif.Response.with_string ~compression:`Gzip req data in
   let field = "content-type" in
   let* () = Vif.Response.add ~field "html; charset=utf-8" in