src/pg.ml

@@ -89,6 +89,23 @@ let _lookup_signing_key =
   fun (module Conn : CONN) (exchange_pub : EddsaPublicKey.t) ->
     Conn.find_opt lookup_signing_key exchange_pub
 
+let activate_signing_key =
+  let insert_signkey =
+    Caqti_type.(t5 eddsa_public ptime ptime ptime eddsa_signature ->. unit)
+      "INSERT INTO exchange_sign_keys (exchange_pub, valid_from, expire_sign, \
+       expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5)"
+  in
+  fun (module Conn : CONN) exchange_signkey ->
+    let Signkey.
+          { pub; stamp_start; stamp_expire; stamp_end; master_sig= _; sign= _ }
+        =
+      exchange_signkey
+    in
+    (*let master_sig = master_sig |> Option.get in*)
+    let master_sig = EddsaSignature.of_octets (String.make 64 'x') in
+    Conn.exec insert_signkey
+      (pub, stamp_start, stamp_expire, stamp_end, master_sig)
+
 let _lookup_denomination_key =
   let lookup_denomination_key =
     Caqti_type.(
@@ -149,23 +166,6 @@ let _add_denomination_key =
         fee_refresh,
         (fee_refund, age_mask) )
 
-let activate_signing_key =
-  let insert_signkey =
-    Caqti_type.(t5 eddsa_public ptime ptime ptime eddsa_signature ->. unit)
-      "INSERT INTO exchange_sign_keys (exchange_pub, valid_from, expire_sign, \
-       expire_legal, master_sig) VALUES ($1, $2, $3, $4, $5)"
-  in
-  fun (module Conn : CONN) exchange_signkey ->
-    let Signkey.
-          { pub; stamp_start; stamp_expire; stamp_end; master_sig= _; sign= _ }
-        =
-      exchange_signkey
-    in
-    (*let master_sig = master_sig |> Option.get in*)
-    let master_sig = EddsaSignature.of_octets (String.make 64 'x') in
-    Conn.exec insert_signkey
-      (pub, stamp_start, stamp_expire, stamp_end, master_sig)
-
 (* ----- *)
 
 let pg_todo () = assert false