From c5f24165cd1a79f9753fc40f381b403007c112e5 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Tue, 7 Oct 2025 15:16:29 +0200
Subject: [PATCH]

---
 src/binary_formats.ml | 4 ++--
 test/test.ml          | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/binary_formats.ml b/src/binary_formats.ml
index bb840af8..f51dc198 100644
--- a/src/binary_formats.ml
+++ b/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 = {
diff --git a/test/test.ml b/test/test.ml
index e3762dbf..d84a6004 100644
--- a/test/test.ml
+++ b/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