diff options
author | Christopher Baines <mail@cbaines.net> | 2023-06-17 19:10:56 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-06-17 19:10:56 +0100 |
commit | ef6e0f83d899e2348c717a3fd6ecde2b0b435079 (patch) | |
tree | 48b990034aedb6b7056ceab82eda70da4af3edaf /guix-qa-frontpage/view | |
parent | dc394681a292b7c88db64d7731a912a8522c8721 (diff) | |
download | qa-frontpage-ef6e0f83d899e2348c717a3fd6ecde2b0b435079.tar qa-frontpage-ef6e0f83d899e2348c717a3fd6ecde2b0b435079.tar.gz |
Handle the cached exceptions in the issue view
Diffstat (limited to 'guix-qa-frontpage/view')
-rw-r--r-- | guix-qa-frontpage/view/issue.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 09e6bb5..133e0a6 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -216,7 +216,7 @@ td.bad { (eq? #f systems-with-low-substitute-availability) (null? systems-with-low-substitute-availability) (not comparison-details) - (guix-data-service-error? comparison-details) + (assq-ref comparison-details 'exception) (null? derivation-changes-counts)) '() ;; TODO: Only show (and apply) this if it relates to these @@ -278,7 +278,7 @@ td.bad { (th))))) (tbody ,@(if (and comparison-details - (not (guix-data-service-error? comparison-details)) + (not (assq-ref comparison-details 'exception)) derivation-changes-counts) (if (null? derivation-changes-counts) `((tr |