From 41c0d76a3de3ed111f7275bd720a1bf2671d7a48 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 19 Jun 2025 09:35:28 +0100 Subject: [PATCH] Avoid error when commit-range-link-url-templates is '() --- guix-data-service/web/compare/html.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm index 6c43f8e..8711574 100644 --- a/guix-data-service/web/compare/html.scm +++ b/guix-data-service/web/compare/html.scm @@ -121,7 +121,8 @@ " and " (a (@ (href ,(string-append "/revision/" target-commit))) (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 (first commit-range-link-url-templates) base-commit