From 83f2981c64ceb6f0a38265cf5a7d4dd140427c3b Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 27 Jan 2025 12:25:11 +0000
Subject: [PATCH] Fix branch package version page if no data is found

---
 .../web/repository/controller.scm              | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm
index 101687c..ceb7b0c 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -188,12 +188,18 @@
                                          (datetime . ,last-datetime))))))
                                 package-versions))))))
          (else
-          (render-html
-           #:sxml (view-branch-package
-                   repository-id
-                   branch-name
-                   package-name
-                   package-versions))))))
+          (if (null? package-versions)
+              (render-html
+               #:sxml (general-not-found
+                       "Package or branch not found"
+                       "")
+               #:code 404)
+              (render-html
+               #:sxml (view-branch-package
+                       repository-id
+                       branch-name
+                       package-name
+                       package-versions)))))))
     (('GET "repository" repository-id "branch" branch-name "package" package-name "derivation-history")
      (render-branch-package-derivation-history request
                                                mime-types