diff options
| -rw-r--r-- | lib/git_presenters.ml | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/git_presenters.ml b/lib/git_presenters.ml index e098ecc..963f1bd 100644 --- a/lib/git_presenters.ml +++ b/lib/git_presenters.ml @@ -117,15 +117,14 @@ let to_blob store hash = Lwt_result.return { content } | _ -> Lwt_result.fail (`Msg "value is not a blob") -let head_tree_id store = - Store.Ref.resolve store Git.Reference.head >>= Store.read store >>= function - | Git.Value.Commit commit -> - Store.Value.Commit.tree commit |> Lwt_result.return - | _ -> `Msg "no head tree id" |> Lwt_result.fail - let head_tree repo = let* store = store repo in - let* hash = head_tree_id store in + let* hash = + Store.Ref.resolve store Git.Reference.head >>= Store.read store >>= function + | Git.Value.Commit commit -> + Store.Value.Commit.tree commit |> Lwt_result.return + | _ -> `Msg "no head tree id" |> Lwt_result.fail + in to_tree store hash let tree_of_id repo id = |