From 9448056f6bfec9f84a2976fca48a4a0cd5b12fea Mon Sep 17 00:00:00 2001
From: Marius Peter <marius.peter@tutanota.com>
Date: Mon, 9 Jun 2025 18:23:35 +0200
Subject: Refactor.

---
 lib/git_presenters.ml | 13 ++++++-------
 1 file 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 =
-- 
cgit v1.2.3