From 331f1d2baa0bafa32d8bfc3d947ae3af7fc12796 Mon Sep 17 00:00:00 2001
From: Marius Peter <marius.peter@tutanota.com>
Date: Sun, 29 Jun 2025 01:09:09 +0200
Subject: Differentiate (sub-)tree and blob views.

---
 lib/handlers.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/handlers.ml')

diff --git a/lib/handlers.ml b/lib/handlers.ml
index 76cdf42..5f67199 100644
--- a/lib/handlers.ml
+++ b/lib/handlers.ml
@@ -29,8 +29,10 @@ module Repo = struct
   let file_id req =
     let repo = Dream.param req "repo" in
     let id = Dream.param req "id" in
-    let* blob = Resolvers.Blob.of_id repo id in
-    Views.Repo.file repo blob
+    let* res = Resolvers.blob_or_tree repo id in
+    match res with
+    | `Tree tree -> Views.Repo.files repo tree
+    | `Blob blob -> Views.Repo.file repo blob
 
   let refs req =
     let repo = Dream.param req "repo" in
-- 
cgit v1.2.3