From ffdd2416f487569830cc6c2038bff4c6cb25193a Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 3 Mar 2019 17:06:11 +0000
Subject: Guard against errors getting derivations for packages

---
 guix-data-service/jobs/load-new-guix-revision.scm | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

(limited to 'guix-data-service')

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)))
-- 
cgit v1.2.3