[OCaml] Mobile-friendly clone of cgit.
Refactor.
lib/git_presenters.ml
@@ -117,15 +117,14 @@
117
117
Lwt_result.return { content }
118
118
| _ -> Lwt_result.fail (`Msg "value is not a blob")
119
119
120
Removed:
let head_tree_id store =
121
Removed:
Store.Ref.resolve store Git.Reference.head >>= Store.read store >>= function
122
Removed:
| Git.Value.Commit commit ->
123
Removed:
Store.Value.Commit.tree commit |> Lwt_result.return
124
Removed:
| _ -> `Msg "no head tree id" |> Lwt_result.fail
125
Removed:
126
120
let head_tree repo =
127
121
let* store = store repo in
128
Removed:
let* hash = head_tree_id store in
122
Added:
let* hash =
123
Added:
Store.Ref.resolve store Git.Reference.head >>= Store.read store >>= function
124
Added:
| Git.Value.Commit commit ->
125
Added:
Store.Value.Commit.tree commit |> Lwt_result.return
126
Added:
| _ -> `Msg "no head tree id" |> Lwt_result.fail
127
Added:
in
129
128
to_tree store hash
130
129
131
130
let tree_of_id repo id =