diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-03 17:06:11 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-03 17:06:11 +0000 |
| commit | ffdd2416f487569830cc6c2038bff4c6cb25193a (patch) | |
| tree | 5862548ad740b2033d69939ed576695f3a94abf9 | |
| parent | 853a2e4125d13a8fbb62ce4217d06bad85a1ea06 (diff) | |
| download | data-service-ffdd2416f487569830cc6c2038bff4c6cb25193a.tar data-service-ffdd2416f487569830cc6c2038bff4c6cb25193a.tar.gz | |
Guard against errors getting derivations for packages
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 3fd461b..135dc3a 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -23,11 +23,23 @@ (packages-metadata-ids (inferior-packages->package-metadata-ids conn packages)) (packages-derivation-ids - (derivations->derivation-ids conn - (map (lambda (package) - (inferior-package-derivation - store package)) - packages)))) + (derivations->derivation-ids + conn + (filter-map + (lambda (package) + (catch + #t + (lambda () + (inferior-package-derivation + store package)) + (lambda args + (simple-format + #t "guix-data-service: inferior-guix->package-ids: error processing derivation ~A\n" + package) + (simple-format + #t "guix-data-service: inferior-guix->package-ids: error: ~A\n" args) + #f))) + packages)))) (inferior-packages->package-ids conn packages packages-metadata-ids packages-derivation-ids))) |