From db968eccee931abc8ad00d74d152625a2ab3174e Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sat, 22 Aug 2026 17:55:26 +0000
Subject: Tidy up

---
 lib/concepts/Branch.ml | 49 -------------------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 lib/concepts/Branch.ml

(limited to 'lib/concepts/Branch.ml')

diff --git a/lib/concepts/Branch.ml b/lib/concepts/Branch.ml
deleted file mode 100644
index cd4213b..0000000
--- a/lib/concepts/Branch.ml
+++ /dev/null
@@ -1,49 +0,0 @@
-type address = Hash.hash
-
-type t =
-  { name: string;
-    target: address }
-
-module Field = struct
-  let name = "name"
-  let target = "target"
-end
-
-module Error = struct
-  open Condition
-
-  let malformed_branch () =
-    condition "branch-malformed" "A branch representation did not conform to what was expected"
-      empty
-
-  let malformed_hash length =
-    condition "branch-malformed-hash" "A branch target root was not a valid hash"
-      ("length" |=| Value.Integer length)
-end
-
-let make ~name ~target = {name; target}
-
-let name branch = branch.name
-let target branch = branch.target
-
-module Body = struct
-  type nonrec t = t
-
-  let tag = 'b'
-  let malformed = Error.malformed_branch
-
-  let equal left right =
-    left.name = right.name && Hash.hash_equals left.target right.target
-
-  let fields branch =
-    [ Field.name, Object.Field.string branch.name;
-      Field.target, Object.Field.address branch.target ]
-
-  let of_fields data =
-    let open Utilities.Result in
-    let* name = Object.Field.require_string Field.name data in
-    let* target = Object.Field.require_address ~malformed:Error.malformed_hash Field.target data in
-    Ok {name; target}
-end
-
-include (Object.Codec.Make (Body) : Object.S with type t := t)
-- 
cgit v1.2.3