src/static.ml

@@ -33,7 +33,7 @@ let aux asset req _server _env =
     match Vif.Headers.get headers "if-none-match" with
     | None -> Ok false
     | Some s ->
-        Headers_lib.Etag.parse s |> Result.map (Headers_lib.Etag.evaluate etag)
+        Result.map (Headers_lib.Etag.evaluate etag) (Headers_lib.Etag.parse s)
   in
   match has_matching_etag with
   | Error e ->
@@ -59,7 +59,6 @@ let aux asset req _server _env =
         (* todo: is it "taler-privacy-version" for /policy ? *)
         add ~field:"taler-terms-version" (Assets.legal_version asset)
       in
-      (* TODO add compression and mimetype headers too *)
       let* () =
         add ~field:"avail-languages" Headers.avail_languages_header_value
       in