src/binary_formats.ml

@@ -364,7 +364,7 @@ module BlindingMasterSeed = MK_BASIC_32 ()
 
 (* Format used for to generate the signature on a request to withdraw
    coins from a reserve. *)
-module WithdrawRequestPs = struct
+module WithdrawRequestPS = struct
   (* Purpose is #TALER_SIGNATURE_WALLET_RESERVE_WITHDRAW *)
   type t = {
     (* Amount to withdraw, excluding fees, i.e.
@@ -432,7 +432,7 @@ module WithdrawRequestPs = struct
     |> sealr
 end
 
-module WithdrawConfirmationPs = struct
+module WithdrawConfirmationPS = struct
   (* Purpose is #TALER_SIGNATURE_EXCHANGE_CONFIRM_WITHDRAW.
      Signed by a `struct TALER_ExchangePrivateKeyP` using EdDSA. *)
   type t = {

test/test.ml

@@ -73,7 +73,7 @@ let () =
   ()
 
 let () =
-  let open Binary_formats.WithdrawConfirmationPs in
+  let open Binary_formats.WithdrawConfirmationPS in
   let str64 = String.make 64 '0' in
   let dummy_t = { h_planchets= { v= { v= str64 } }; noreveal_index= 0_l } in
   let size' = Bin.size_of_value bin dummy_t |> Option.get in