From d2f334f4b183ee5edad86900f87268eeb7870bb1 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Fri, 21 Nov 2025 19:29:04 +0100
Subject: [PATCH] ~

---
 src/denomination.ml |  4 ----
 src/dune            |  2 --
 src/util.ml         | 12 +++---------
 3 files changed, 3 insertions(+), 15 deletions(-)

diff --git a/src/denomination.ml b/src/denomination.ml
index 073ab646..17346abd 100644
--- a/src/denomination.ml
+++ b/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;
diff --git a/src/dune b/src/dune
index b378bc9e..f092e1ad 100644
--- a/src/dune
+++ b/src/dune
@@ -20,8 +20,6 @@
   caqti-miou.unix
   caqti-driver-pgx
   bin
-  angstrom
-  zarith ;
   mirage-crypto
   digestif
   duration
diff --git a/src/util.ml b/src/util.ml
index 608f3ed5..9ad5f311 100644
--- a/src/util.ml
+++ b/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 =