diff options
author | Christopher Baines <mail@cbaines.net> | 2023-09-15 22:04:50 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-09-15 22:04:50 +0100 |
commit | 29b0e95c278ea710f89b074d6c9ad05a0ee365bf (patch) | |
tree | 6691b985a5b1834fa12aac80e078ada303611903 | |
parent | a4468bf095cd777777171614e7368eb92eca0079 (diff) | |
download | qa-frontpage-29b0e95c278ea710f89b074d6c9ad05a0ee365bf.tar qa-frontpage-29b0e95c278ea710f89b074d6c9ad05a0ee365bf.tar.gz |
Fix some links to derivations
-rw-r--r-- | guix-qa-frontpage/view/shared.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-qa-frontpage/view/shared.scm b/guix-qa-frontpage/view/shared.scm index ad0a52c..bafbcdd 100644 --- a/guix-qa-frontpage/view/shared.scm +++ b/guix-qa-frontpage/view/shared.scm @@ -20,6 +20,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-43) #:use-module (ice-9 match) + #:use-module (web uri) #: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) @@ -213,14 +214,16 @@ `(div (a (@ (href ,(string-append "https://data.qa.guix.gnu.org" - (assoc-ref derivations "base")))) + (uri-encode + (assoc-ref derivations "base"))))) "was " ,base-status))) ,(if (eq? target-status 'not-present) `(div "now not present") `(div (a (@ (href ,(string-append "https://data.qa.guix.gnu.org" - (assoc-ref derivations "target")))) + (uri-encode + (assoc-ref derivations "target"))))) "now " ,target-status)))))) '(td))) |