Orthogonalize branch resolver.

1 files 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 =