From da2a405e8b6cd95666e8a070cd3b772e07071f64 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 16 Nov 2023 12:20:55 +0000 Subject: Remove hardcoding of builtin:download As this was causing problems with builtin:git-download. --- guix-data-service/web/view/html.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 29eaf62..ab09644 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -640,9 +640,8 @@ (tbody (tr (td "Builder") - (td ,(if (string=? "builtin:download" - builder) - "builtin:download" + (td ,(if (string-prefix? "builtin:" builder) + builder `(a (@ (href ,builder)) ,(display-file-in-store-item builder))))) (tr @@ -852,9 +851,8 @@ (@ (class "col-md-10") (style "font-family: monospace;")) (span (@ (style "margin-left: 1.5em;")) - ,@(if (string=? "builtin:download" - builder) - '("builtin:download") + ,@(if (string-prefix? "builtin:" builder) + (list builder) `("\"" (a (@ (href ,builder)) ,(display-file-in-store-item-oneline builder)) -- cgit v1.2.3