diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-07 11:14:11 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-07 11:14:11 +0100 |
| commit | e8e14597696504c9147a26abbba41ebf04c571af (patch) | |
| tree | a9211d8d7b06070013726ff953575557cb81aaea /guix-data-service/web | |
| parent | f2e2ca7a074f4b05c77f3c9f4362091b64c1b8e5 (diff) | |
| download | data-service-e8e14597696504c9147a26abbba41ebf04c571af.tar data-service-e8e14597696504c9147a26abbba41ebf04c571af.tar.gz | |
URI encode some derivation names in links
To handle characters like +.
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/compare/html.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm index 44acb81..6979e42 100644 --- a/guix-data-service/web/compare/html.scm +++ b/guix-data-service/web/compare/html.scm @@ -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))) |