Better handle errors within process-load-new-guix-revision-job

2019-12-23 19:28:13 +00:00 · 2019-12-23 19:28:13 +00:00 · 474d942cbb
commit 474d942cbb
parent d2e0fc53c1
1 changed files with 11 additions and 1 deletions
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@ -1268,7 +1268,17 @@ SKIP LOCKED")
                                     (let ((result
                                            (parameterize ((current-build-output-port logging-port)
                                                           (real-error-port previous-error-port))
-                                              (load-new-guix-revision conn git-repository-id commit))))
+                                              (catch #t
+                                                (lambda ()
+                                                  (load-new-guix-revision conn
+                                                                          git-repository-id
+                                                                          commit))
+                                                (lambda (key . args)
+                                                  (simple-format
+                                                   (current-error-port)
+                                                   "error: load-new-guix-revision: ~A ~A\n"
+                                                   key args)
+                                                  #f)))))
                                       (combine-log-parts! logging-conn id)

                                       ;; This can happen with GC, so do it explicitly