src/types.ml

@@ -1,5 +1,5 @@
 (* https://docs.taler.net/core/api-common.html#tsref-type-ErrorDetail *)
-module Error_detail = struct
+module ErrorDetail = struct
   (* TODO GANA error codes
      https://git.gnunet.org/gana.git/tree/gnu-taler-error-codes/registry.rec *)
   type t = {
@@ -21,7 +21,7 @@ module Timestamp = struct
     | Never
 end
 
-module Relative_time = struct
+module RelativeTime = struct
   (* Duration in microseconds or "forever"
      to represent an infinite duration. Numeric
      values are capped at 2^53 - 1 inclusive. *)
@@ -147,19 +147,19 @@ module Rsa = struct
   let pub_to_string _pub = assert false
 end
 
-module Hash_code = struct
+module HashCode = struct
   (* 32-byte value representing a point on Curve25519. *)
   type cs25519Point = string
 end
 
-module Rsa_denomination_key = struct
+module RsaDenominationKey = struct
   type t = {
     age_mask: int;
     rsa_pub: string; (* Rsa.pub *)
   }
 end
 
-module CS_denomination_key = struct
+module CSDenominationKey = struct
   (* Clause Schnorr *)
   type t = {
     age_mask: int;
@@ -167,13 +167,13 @@ module CS_denomination_key = struct
   }
 end
 
-module Denomination_key = struct
+module DenominationKey = struct
   type t =
-    | Rsa of Rsa_denomination_key.t
-    | CS of CS_denomination_key.t
+    | Rsa of RsaDenominationKey.t
+    | CS of CSDenominationKey.t
 end
 
-module Future_sign_key = struct
+module FutureSignKey = struct
   type t = {
     (* The actual exchange's EdDSA signing public key *)
     key: Eddsa.pub;