~

src/denomination.ml

@@ -17,10 +17,6 @@ type t = {
   master_sig: EddsaSignature.t option;
 }
 
-let hash_pub _pub =
-  (* todo public key converted to Crockford Base32 *)
-  assert false
-
 let make
     ({
        section_name;

src/dune

@@ -20,8 +20,6 @@
   caqti-miou.unix
   caqti-driver-pgx
   bin
-  angstrom
-  zarith ;
   mirage-crypto
   digestif
   duration

src/util.ml

@@ -1,14 +1,8 @@
-module Protocol_version = struct
-  (* TODO *)
-  (* libtool version format *)
-  let current = 0
-  let revision = 0
-  let age = 0
-  let v = Fmt.str "%d:%d:%d"
-end
-
 (* -- Ptime -- *)
 
+(* TODO have a Time.t = int64
+   -> avoid having conversion everywhere
+   -> avoid using Caqti_type.ptime *)
 let ptime_to_int64 ptime = ptime |> Ptime.to_float_s |> Int64.of_float
 
 let ptime_of_int64 i =