guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

URI encode some derivation names in links 

To handle characters like +.
This commit is contained in:
Christopher Baines 2023-09-07 11:14:11 +01:00
parent f2e2ca7a07
commit e8e1459769
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix-data-service/web/compare/html.scm
View File

@ -930,7 +930,7 @@ enough builds to determine a change")))
,target))
(td ,@(if base-derivation-file-name
`((a (@ (style "display: block;")
(href ,base-derivation-file-name))
(href ,(uri-encode-filename base-derivation-file-name)))
(span (@ (class "text-danger glyphicon glyphicon-minus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;")))
,@(build-statuses->build-status-labels
@ -939,7 +939,7 @@ enough builds to determine a change")))
'())
,@(if target-derivation-file-name
`((a (@ (style "display: block; clear: left;")
(href ,target-derivation-file-name))
(href ,(uri-encode-filename target-derivation-file-name)))
(span (@ (class "text-success glyphicon glyphicon-plus pull-left")
(style "font-size: 1.5em; padding-right: 0.4em;")))
,@(build-statuses->build-status-labels
@ -955,9 +955,9 @@ enough builds to determine a change")))
,(string-append
"/compare/derivation?"
"base_derivation="
base-derivation-file-name
(uri-encode-filename base-derivation-file-name)
"&target_derivation="
target-derivation-file-name)))
(uri-encode-filename target-derivation-file-name))))
"⇕ Compare"))
'()))))))
system-and-versions)))