src/pg.ml

@@ -7,7 +7,10 @@
    GNU Taler db-events?
    it seems caqti/pgx does not support it *)
 
+module type CONN = Caqti_miou.CONNECTION
+
 open Crypto
+open Bin_type
 
 module Caqti_type = struct
   include Caqti_type
@@ -31,7 +34,6 @@ module Caqti_type = struct
 
   include struct
     (* alias for hash *)
-    open Bin_type
 
     let fullpayto_hash = FullPaytoHash.caqti
     let nomalizaedpayto_hash = NormalizedPaytoHash.caqti
@@ -49,10 +51,6 @@ module Caqti_type = struct
   include Caqti_request.Infix
 end
 
-module type CONN = Caqti_miou.CONNECTION
-
-open Bin_type
-
 let preflight =
   let l =
     List.map