branch master updated: Remove hardcoding of builtin:download

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository data-service.

The following commit(s) were added to refs/heads/master by this push:
     new da2a405  Remove hardcoding of builtin:download
da2a405 is described below

commit da2a405e8b6cd95666e8a070cd3b772e07071f64
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Nov 16 12:20:55 2023 +0000

    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))