From b790c77c5e42a220a8419c69dbea3e392ee60fbe Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Sun, 2 Aug 2026 23:38:05 -0300 Subject: Revert "format" This reverts commit fee14f4b29840357f87f02d51953f41ce90f7d9e. --- lib/concepts/Branch.ml | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'lib/concepts/Branch.ml') diff --git a/lib/concepts/Branch.ml b/lib/concepts/Branch.ml index 57c46b3..cd4213b 100644 --- a/lib/concepts/Branch.ml +++ b/lib/concepts/Branch.ml @@ -1,5 +1,8 @@ type address = Hash.hash -type t = {name: string; target: address} + +type t = + { name: string; + target: address } module Field = struct let name = "name" @@ -19,6 +22,7 @@ module Error = struct end let make ~name ~target = {name; target} + let name branch = branch.name let target branch = branch.target @@ -27,10 +31,13 @@ module Body = struct let tag = 'b' let malformed = Error.malformed_branch - let equal left right = left.name = right.name && Hash.hash_equals left.target right.target + + 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] + [ Field.name, Object.Field.string branch.name; + Field.target, Object.Field.address branch.target ] let of_fields data = let open Utilities.Result in -- cgit v1.2.3