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

Remove hardcoding of builtin:download

Browse source 
As this was causing problems with builtin:git-download.
This commit is contained in:
Christopher Baines 2023-11-16 12:20:55 +00:00
parent de211ef5ea
commit da2a405e8b
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/web/view/html.scm
View file

@ -640,9 +640,8 @@
(tbody (tbody
(tr (tr
(td "Builder") (td "Builder")
(td ,(if (string=? "builtin:download" (td ,(if (string-prefix? "builtin:" builder)
builder) builder
"builtin:download"
`(a (@ (href ,builder)) `(a (@ (href ,builder))
,(display-file-in-store-item builder))))) ,(display-file-in-store-item builder)))))
(tr (tr
@ -852,9 +851,8 @@
(@ (class "col-md-10") (@ (class "col-md-10")
(style "font-family: monospace;")) (style "font-family: monospace;"))
(span (@ (style "margin-left: 1.5em;")) (span (@ (style "margin-left: 1.5em;"))
,@(if (string=? "builtin:download" ,@(if (string-prefix? "builtin:" builder)
builder) (list builder)
'("builtin:download")
`("\"" `("\""
(a (@ (href ,builder)) (a (@ (href ,builder))
,(display-file-in-store-item-oneline builder)) ,(display-file-in-store-item-oneline builder))