From efb6c66f6fcec833696c8dc1e99390554aa23716 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Thu, 5 Feb 2026 18:29:37 +0100
Subject: [PATCH]

---
 src/crypto.ml | 6 ++----
 src/util.ml   | 8 --------
 2 files changed, 2 insertions(+), 12 deletions(-)

diff --git a/src/crypto.ml b/src/crypto.ml
index 156ac781..bf437fce 100644
--- a/src/crypto.ml
+++ b/src/crypto.ml
@@ -114,10 +114,8 @@ module EddsaPublicKey = struct
     | Ok v -> Ok v
 
   let bin =
-    let of_octets o =
-      match of_octets o with Error e -> raise (Util.Bin_error e) | Ok v -> v
-    in
-    Bin.map (Bin.bytes 32) of_octets to_octets
+    let of_octets_exn t = of_octets t |> Result.get_ok in
+    Bin.map (Bin.bytes 32) of_octets_exn to_octets
 
   let of_b32 s =
     let* octets = B32.decode s in
diff --git a/src/util.ml b/src/util.ml
index ffc45a92..c690a009 100644
--- a/src/util.ml
+++ b/src/util.ml
@@ -1,11 +1,3 @@
-exception Bin_error of string
-
-(* TODO bin
-   - no [Bin.of_string] ? *)
-let bin_of_string bin s =
-  let v = Bin.decode bin s (ref 0) in
-  Ok v
-
 module Log_reporter = struct
   let detail_tag : string Logs.Tag.def =
     Logs.Tag.def "Detail tag" ~doc:"" Fmt.string