diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-05-20 12:18:58 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-05-20 12:18:58 +0100 |
| commit | 89545caa3f8223db49f3e18dfecee0bc4094c0da (patch) | |
| tree | be71af4d52ff245bb0dc9b16f06b8b6d98e58c2c | |
| parent | 198b6ef719745a48918e703990d1e846ffcd65b0 (diff) | |
| download | data-service-89545caa3f8223db49f3e18dfecee0bc4094c0da.tar data-service-89545caa3f8223db49f3e18dfecee0bc4094c0da.tar.gz | |
Fix branch links on the repository page
Thanks to Tobias for reporting.
| -rw-r--r-- | guix-data-service/web/view/html.scm | 14 |
1 files changed, 8 insertions, 6 deletions
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 "") |