src/bin_type.ml

@@ -35,13 +35,13 @@ module Taler_signatures = Include.Taler_signatures
 let int32_size = 4
 let int64_size = 8
 
-module Bytes_32 = struct
+module Bytes32 = struct
   type t = string
 
   let bin = Bin.bytes 32
 end
 
-module Bytes_64 = struct
+module Bytes64 = struct
   type t = string
 
   let bin = Bin.bytes 64
@@ -51,13 +51,13 @@ end
 
 (* --- Various --- *)
 
-module TransferSecretP = Bytes_64
-module LinkSecretP = Bytes_64
-module EncryptedLinkSecretP = Bytes_64
-module BlindingMasterSeed = Bytes_32
-module BlindingMasterSecret = Bytes_32
-module WireTransferIdentifierRawP = Bytes_32
-module PublicRefreshCoinNonceP = Bytes_64
+module TransferSecretP = Bytes64
+module LinkSecretP = Bytes64
+module EncryptedLinkSecretP = Bytes64
+module BlindingMasterSeed = Bytes32
+module BlindingMasterSecret = Bytes32
+module WireTransferIdentifierRawP = Bytes32
+module PublicRefreshCoinNonceP = Bytes64
 
 (* TODO ? need to use/save a specific nonce for cryptographic blinding *)
 (* Secret for blinding/unblinding.
@@ -65,8 +65,8 @@ module PublicRefreshCoinNonceP = Bytes_64
    a 256-bit nonce, converted to Crockford `Base32`.
 
    type DenominationBlindingKeyP = string; *)
-module DenominationBlindingKeyP = Bytes_32
-module RefreshCommitmentP = Bytes_64
+module DenominationBlindingKeyP = Bytes32
+module RefreshCommitmentP = Bytes64
 
 (* -- TODO better: -- *)
 module UUID = struct