From b56bdde770615fb5c59f34d3f5c58d70ca9ad73b Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 29 Jun 2025 01:08:08 +0200 Subject: Orthogonalize branch resolver. --- lib/resolvers.ml | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/lib/resolvers.ml b/lib/resolvers.ml index e7c9cd5..741c797 100644 --- a/lib/resolvers.ml +++ b/lib/resolvers.ml @@ -64,21 +64,14 @@ end module Branch = struct type t = { name : string; hash : string } - let to_t (reference, hash) = { name = reference; hash } + let to_t (reference, hash) = + { name = Git.Reference.to_string reference; hash = Store.Hash.to_hex hash } let all repo = let* store = store repo in let open Lwt.Syntax in let* refs = Store.Ref.list store in - let branches = - List.map - (fun (reference, hash) -> - { - name = Git.Reference.to_string reference; - hash = Store.Hash.to_hex hash; - }) - refs - in + let branches = List.map to_t refs in Lwt_result.return branches let of_id repo id = -- cgit v1.2.3