[OCaml] Mobile-friendly clone of cgit.
Orthogonalize branch resolver.
lib/resolvers.ml
@@ -64,21 +64,14 @@
64
64
module Branch = struct
65
65
type t = { name : string; hash : string }
66
66
67
Removed:
let to_t (reference, hash) = { name = reference; hash }
67
Added:
let to_t (reference, hash) =
68
Added:
{ name = Git.Reference.to_string reference; hash = Store.Hash.to_hex hash }
68
69
69
70
let all repo =
70
71
let* store = store repo in
71
72
let open Lwt.Syntax in
72
73
let* refs = Store.Ref.list store in
73
Removed:
let branches =
74
Removed:
List.map
75
Removed:
(fun (reference, hash) ->
76
Removed:
{
77
Removed:
name = Git.Reference.to_string reference;
78
Removed:
hash = Store.Hash.to_hex hash;
79
Removed:
})
80
Removed:
refs
81
Removed:
in
74
Added:
let branches = List.map to_t refs in
82
75
Lwt_result.return branches
83
76
84
77
let of_id repo id =