aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/server.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-09-17 13:29:07 +0200
committerChristopher Baines <mail@cbaines.net>2022-09-17 13:29:07 +0200
commit13b57422670eea8348758294fed07bec6346348d (patch)
tree05ae174a0dc5f126d24257577db09b7fdf5c8f38 /guix-qa-frontpage/server.scm
parent18c0cb2600ee9f040f7e503d43d168bd112a0e53 (diff)
downloadqa-frontpage-13b57422670eea8348758294fed07bec6346348d.tar
qa-frontpage-13b57422670eea8348758294fed07bec6346348d.tar.gz
Avoid errors when various URLs can't be found
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r--guix-qa-frontpage/server.scm38
1 files changed, 22 insertions, 16 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