mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Guard against errors getting derivations for packages
This commit is contained in:
parent
853a2e4125
commit
ffdd2416f4
|
@ -23,11 +23,23 @@
|
||||||
(packages-metadata-ids
|
(packages-metadata-ids
|
||||||
(inferior-packages->package-metadata-ids conn packages))
|
(inferior-packages->package-metadata-ids conn packages))
|
||||||
(packages-derivation-ids
|
(packages-derivation-ids
|
||||||
(derivations->derivation-ids conn
|
(derivations->derivation-ids
|
||||||
(map (lambda (package)
|
conn
|
||||||
(inferior-package-derivation
|
(filter-map
|
||||||
store package))
|
(lambda (package)
|
||||||
packages))))
|
(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
|
(inferior-packages->package-ids
|
||||||
conn packages packages-metadata-ids packages-derivation-ids)))
|
conn packages packages-metadata-ids packages-derivation-ids)))
|
||||||
|
|
Loading…
Reference in a new issue