diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-09-17 13:29:07 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-09-17 13:29:07 +0200 |
| commit | 13b57422670eea8348758294fed07bec6346348d (patch) | |
| tree | 05ae174a0dc5f126d24257577db09b7fdf5c8f38 /guix-qa-frontpage | |
| parent | 18c0cb2600ee9f040f7e503d43d168bd112a0e53 (diff) | |
| download | qa-frontpage-13b57422670eea8348758294fed07bec6346348d.tar qa-frontpage-13b57422670eea8348758294fed07bec6346348d.tar.gz | |
Avoid errors when various URLs can't be found
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 38 | ||||
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 3 |
2 files changed, 24 insertions, 17 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 2ab2bb2..3e0c69b 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -130,23 +130,29 @@ (if series (let ((derivation-changes change-details - (with-sqlite-cache - database - 'derivation-changes - patch-series-derivation-changes - #:args - (list (patch-series-derivation-changes-url - series - #:systems %systems-to-submit-builds-for)) - #:ttl 6000)) + (or + (and=> (patch-series-derivation-changes-url + series + #:systems %systems-to-submit-builds-for) + (lambda (url) + (with-sqlite-cache + database + 'derivation-changes + patch-series-derivation-changes + #:args (list url) + #:ttl 6000))) + (values #f #f))) (comparison-details - (with-sqlite-cache - database - 'lint-warnings - patch-series-comparison - #:args - (list (patch-series-compare-url series)) - #:ttl 6000))) + (and=> + (patch-series-compare-url series) + (lambda (url) + (with-sqlite-cache + database + 'lint-warnings + patch-series-comparison + #:args + (list url) + #:ttl 6000))))) (render-html #:sxml (issue-view number series diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 59b27c3..3a57598 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -237,7 +237,8 @@ td.bad { "Unknown") (th))) (tbody - ,@(if comparison-details + ,@(if (and comparison-details + derivation-changes) (let* ((base-builds (builds-by-system-excluding-cross-builds "base")) (target-builds |