diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-01-31 20:27:11 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-01-31 20:27:11 +0000 |
| commit | 8ed53099ba75a4e5e1eb027623251bbc7b6674cf (patch) | |
| tree | e265f026d4a606567e4415cbed3bae6784356e92 /guix-data-service/web/view | |
| parent | 86cd96ea87726e6fe52b4e547eb764a2c9ecf1ed (diff) | |
| download | data-service-8ed53099ba75a4e5e1eb027623251bbc7b6674cf.tar data-service-8ed53099ba75a4e5e1eb027623251bbc7b6674cf.tar.gz | |
Fix some URL encoding issues around derivation names
Diffstat (limited to 'guix-data-service/web/view')
| -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 024eeda..8a0b64b 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -537,7 +537,7 @@ (h4 "Derivation: ") ,(match derivation ((file-name output-id) - `(a (@ (href ,file-name)) + `(a (@ (href ,(uri-encode-filename file-name))) ,(display-store-item file-name)))))))) derivations))))) @@ -623,7 +623,8 @@ ,@(map (match-lambda ((derivation-file-name outputs) `(tr - (td (a (@ (href ,derivation-file-name)) + (td (a (@ (href ,(uri-encode-filename + derivation-file-name))) ,(display-store-item-short derivation-file-name)))))) derivation-inputs))))) (div @@ -683,10 +684,7 @@ ,@(map (match-lambda ((output-name path hash-algorithm hash recursive?) `(tr - (td (a (@ (href ,(string-join - (map uri-encode - (string-split path #\/)) - "/"))) + (td (a (@ (href ,(uri-encode-filename path))) ,(display-store-item-short path)))))) derivation-outputs))))))))) |