cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid error when commit-range-link-url-templates is '()

Browse source
This commit is contained in:
Christopher Baines 2025-06-19 09:35:28 +01:00
parent 254998a561
commit 41c0d76a3d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guix-data-service/web/compare/html.scm
View file

@ -121,7 +121,8 @@
" and " " and "
(a (@ (href ,(string-append "/revision/" target-commit))) (a (@ (href ,(string-append "/revision/" target-commit)))
(samp ,(string-take target-commit 8) "…"))) (samp ,(string-take target-commit 8) "…")))
,@(if (apply string=? commit-range-link-url-templates) ,@(if (and (not (null? commit-range-link-url-templates))
(apply string=? commit-range-link-url-templates))
`((a (@ (href ,(git-repository-commit-range-link-template->url `((a (@ (href ,(git-repository-commit-range-link-template->url
(first commit-range-link-url-templates) (first commit-range-link-url-templates)
base-commit base-commit