src/assets.ml

@@ -51,21 +51,23 @@ module Mimetype = struct
   let pp_mime fmt mime = Fmt.pf fmt "%s/%s" (fst mime) (snd mime)
 end
 
+(* TODO config *)
 type t =
   | Terms
   | Privacy
 
-let etag = function
-  | Terms -> Config.Exchange.terms_etag
-  | Privacy -> Config.Exchange.privacy_etag
+let etag k =
+  Result.get_ok
+  @@ Headers_lib.Etag.of_crockford32
+  @@ match k with Terms -> "0" | Privacy -> "0"
 
 let legal_version = function
   | Terms -> terms_legal_version
   | Privacy -> privacy_legal_version
 
 let base_dir = function
-  | Terms -> Config.Exchange.terms_dir
-  | Privacy -> Config.Exchange.privacy_dir
+  | Terms -> Fpath.v "terms"
+  | Privacy -> Fpath.v "privacy"
 
 (* TODO
    better use of Fmt to have error prefix or smthing