From 89545caa3f8223db49f3e18dfecee0bc4094c0da Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 20 May 2022 12:18:58 +0100
Subject: Fix branch links on the repository page

Thanks to Tobias for reporting.
---
 guix-data-service/web/view/html.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'guix-data-service/web/view')

diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 8a0b64b..3f2c2ae 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -373,12 +373,14 @@
           ((name commit date revision-exists? job-events)
            `(tr
              (td
-              (a (@ (href ,(encode-and-join-uri-path
-                            (list
-                             "repository"
-                             (number->string git-repository-id)
-                             "branch"
-                             name))))
+              (a (@ (href ,(string-append
+                            "/"
+                            (encode-and-join-uri-path
+                             (list
+                              "repository"
+                              (number->string git-repository-id)
+                              "branch"
+                              name)))))
                  ,name))
              (td ,date)
              (td ,@(if (string=? commit "")
-- 
cgit v1.2.3