+ drain_profit_message

src/api.ml

@@ -63,6 +63,11 @@ module B32 = struct
   include B32
 
   let jsont = Jsont.of_of_string ~kind:"B32" B32.decode ~enc:B32.encode
+
+  let caqti =
+    Caqti_type.custom
+      ~encode:(fun v -> Ok (B32.encode v))
+      ~decode:B32.decode Caqti_type.string
 end
 
 module HashCode : sig
@@ -689,12 +694,12 @@ end
 
 module DrainProfitsMessage = struct
   type t = {
+    wtid: B32.t;
     debit_account_section: string;
     credit_payto_uri: string;
-    wtid: B32.t;
-    master_sig: MasterDrainProfit.t;
     date: Timestamp.t;
     amount: Amount.t;
+    master_sig: MasterDrainProfit.t;
   }
 
   let jsont =