guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Guard against errors getting derivations for packages

This commit is contained in:
Christopher Baines 2019-03-03 17:06:11 +00:00
parent 853a2e4125
commit ffdd2416f4
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
guix-data-service/jobs/load-new-guix-revision.scm
View File

@ -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)))