diff options
author | Christopher Baines <mail@cbaines.net> | 2023-11-16 12:20:55 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-11-16 12:20:55 +0000 |
commit | da2a405e8b6cd95666e8a070cd3b772e07071f64 (patch) | |
tree | c8cba8057850fc7e823d42f790743ce7402ade4f | |
parent | de211ef5eafecba49a34eae7e6da6db78f198bf8 (diff) | |
download | data-service-da2a405e8b6cd95666e8a070cd3b772e07071f64.tar data-service-da2a405e8b6cd95666e8a070cd3b772e07071f64.tar.gz |
Remove hardcoding of builtin:download
As this was causing problems with builtin:git-download.
-rw-r--r-- | guix-data-service/web/view/html.scm | 10 |
1 files 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)) |