Fix tree view at HEAD.

1 files changed, 6 insertions, 5 deletions

diff --git a/lib/resolvers.ml b/lib/resolvers.ml
index fb5dee6..fa485e3 100644
--- a/lib/resolvers.ml
+++ b/lib/resolvers.ml
@@ -126,11 +126,12 @@ module Tree = struct
 
   let head repo =
     let* store = store repo in
-    let* hash =
-      Store.Ref.resolve store Git.Reference.head
-      |> Lwt_result.map Store.Hash.to_hex
-    in
-    of_id repo hash
+    let* commit_hash = Store.Ref.resolve store Git.Reference.head in
+    Lwt_result.bind (Store.read store commit_hash) @@ function
+    | Git.Value.Commit commit ->
+        let tree_id = Store.Value.Commit.tree commit |> Store.Hash.to_hex in
+        of_id repo tree_id
+    | _ -> Lwt_result.fail @@ `Msg "HEAD reference does not point to a commit"
 end
 
 module Blob = struct