~

src/hash.ml

@@ -1,3 +1,6 @@
+(* TODO hash over canonicalized json
+   https://docs.taler.net/design-documents/018-contract-json.html#canonicalized-hashing
+   https://datatracker.ietf.org/doc/html/rfc8785 *)
 open Digestif
 
 module type S = sig

src/http_management.ml

@@ -325,6 +325,7 @@ module Wire = struct
     in
     let h_credit_restrictions = Hash.Cstring.H64.hash "" in
     let h_debit_restrictions = Hash.Cstring.H64.hash "" in
+    (* - *)
     let* () =
       let open Signatures.MasterWireDetails in
       verify Config.master_public_key master_sig_wire