diff options
| -rw-r--r-- | lib/resolvers.ml | 13 |
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 = |