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)

include/gen_eddsa_key.ml

@@ -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;
-
-  ()