diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-16 09:46:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-16 09:46:51 +0100 |
| commit | 96e85c3ff9dbc55bcabeceff6ef45c54151ce7b3 (patch) | |
| tree | 907727aebdfab1225c218d21518df26d649449a1 | |
| parent | cd1b536621ea5022d822e39a3251fdc547f3168e (diff) | |
| download | qa-frontpage-96e85c3ff9dbc55bcabeceff6ef45c54151ce7b3.tar qa-frontpage-96e85c3ff9dbc55bcabeceff6ef45c54151ce7b3.tar.gz | |
Fix uri encoding of derivation filenames
| -rw-r--r-- | guix-qa-frontpage/view/shared.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-qa-frontpage/view/shared.scm b/guix-qa-frontpage/view/shared.scm index bafbcdd..d12fded 100644 --- a/guix-qa-frontpage/view/shared.scm +++ b/guix-qa-frontpage/view/shared.scm @@ -21,6 +21,8 @@ #:use-module (srfi srfi-43) #:use-module (ice-9 match) #:use-module (web uri) + #:use-module ((guix-data-service web util) + #:select (uri-encode-filename)) #:use-module ((guix-data-service model utils) #:select (group-to-alist)) #:use-module (guix-qa-frontpage manage-builds) #:use-module (guix-qa-frontpage view util) @@ -214,7 +216,7 @@ `(div (a (@ (href ,(string-append "https://data.qa.guix.gnu.org" - (uri-encode + (uri-encode-filename (assoc-ref derivations "base"))))) "was " ,base-status))) ,(if (eq? target-status 'not-present) @@ -222,7 +224,7 @@ `(div (a (@ (href ,(string-append "https://data.qa.guix.gnu.org" - (uri-encode + (uri-encode-filename (assoc-ref derivations "target"))))) "now " ,target-status)))))) '(td))) |