src/keys.ml

@@ -1,8 +1,6 @@
 (* TODO better error type *)
 type 'a result = ('a, string) Result.t
 
-module type S = Keys_intf.S
-
 module Make (Conn : Pg.CONN) = struct
   open Syntax
   open Crypto

src/keys.mli

@@ -1,3 +1,29 @@
-module type S = Keys_intf.S
+type 'a result = ('a, string) Result.t
 
-module Make (_ : Pg.CONN) : S
+module Make (_ : Pg.CONN) : sig
+  open Crypto
+
+  val master_pub : eddsa_pub
+  val secmod_rsa_pub : eddsa_pub
+  val secmod_eddsa_pub : eddsa_pub
+  val sign : pub:eddsa_pub -> string -> eddsa_sig
+  val sign_denom : pub:rsa_pub -> string -> string
+  val find_signkey : eddsa_pub -> Signkey.t option result
+  val find_denomination : denom_hash -> Denomination.t option result
+  val signkeys : unit -> Signkey.t list result
+  val denominations : unit -> Denomination.t list result
+  val future_signkeys : unit -> Api.FutureSignKey.t list result
+  val future_denominations : unit -> Api.FutureDenom.t list result
+
+  val certify_future_signkey :
+    eddsa_pub -> Signatures.ExchangeSigningKeyValidity.t -> unit result
+
+  val certify_future_denomination :
+    denom_hash -> Signatures.DenominationKeyValidity.t -> unit result
+
+  val revoke_signkey :
+    eddsa_pub -> Signatures.MasterSigningKeyRevocation.t -> unit result
+
+  val revoke_denomination :
+    denom_hash -> Signatures.MasterDenominationKeyRevocation.t -> unit result
+end

src/keys_intf.ml

@@ -1,29 +0,0 @@
-type 'a result = ('a, string) Result.t
-
-module type S = sig
-  open Crypto
-
-  val master_pub : eddsa_pub
-  val secmod_rsa_pub : eddsa_pub
-  val secmod_eddsa_pub : eddsa_pub
-  val sign : pub:eddsa_pub -> string -> eddsa_sig
-  val sign_denom : pub:rsa_pub -> string -> string
-  val find_signkey : eddsa_pub -> Signkey.t option result
-  val find_denomination : denom_hash -> Denomination.t option result
-  val signkeys : unit -> Signkey.t list result
-  val denominations : unit -> Denomination.t list result
-  val future_signkeys : unit -> Api.FutureSignKey.t list result
-  val future_denominations : unit -> Api.FutureDenom.t list result
-
-  val certify_future_signkey :
-    eddsa_pub -> Signatures.ExchangeSigningKeyValidity.t -> unit result
-
-  val certify_future_denomination :
-    denom_hash -> Signatures.DenominationKeyValidity.t -> unit result
-
-  val revoke_signkey :
-    eddsa_pub -> Signatures.MasterSigningKeyRevocation.t -> unit result
-
-  val revoke_denomination :
-    denom_hash -> Signatures.MasterDenominationKeyRevocation.t -> unit result
-end