From 1a707329771bbc6890d07aad2baadfd90db6413c Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Thu, 20 Nov 2025 23:11:46 +0100
Subject: [PATCH]

---
 include/dune             |  5 -----
 include/gen_eddsa_key.ml | 16 ----------------
 2 files changed, 21 deletions(-)
 delete mode 100644 include/gen_eddsa_key.ml

diff --git a/include/dune b/include/dune
index 58109e3a..6873d83e 100644
--- a/include/dune
+++ b/include/dune
@@ -4,11 +4,6 @@
  (modules taler_signatures)
  (libraries))
 
-(executable
- (name gen_eddsa_key)
- (modules gen_eddsa_key)
- (libraries fmt mirage-crypto-rng.unix mirage-crypto-ec b32))
-
 (library ; todo: should I have a /lib?
  (name parse_config)
  (modules parse_config)
diff --git a/include/gen_eddsa_key.ml b/include/gen_eddsa_key.ml
deleted file mode 100644
index f4569744..00000000
--- a/include/gen_eddsa_key.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-let () =
-  Mirage_crypto_rng_unix.use_default ();
-  let open Mirage_crypto_ec.Ed25519 in
-  let _priv, pub = generate () in
-  let octets = pub_to_octets pub in
-  let pub_b32 = B32.encode octets in
-  let octets' = B32.decode pub_b32 |> Result.get_ok in
-  assert (octets = octets');
-  (*
-  Fmt.pr "public key    :@.%S@." octets;
-  Fmt.pr "len: %d@." (String.length octets);
-  Fmt.pr "len: %d@." (String.length pub_b32);
-  *)
-  Fmt.pr "%s@." pub_b32;
-
-  ()