cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Christopher Baines 2019-12-23 19:28:13 +00:00
parent d2e0fc53c1
commit 474d942cbb
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1268,7 +1268,17 @@ SKIP LOCKED")
(let ((result (let ((result
(parameterize ((current-build-output-port logging-port) (parameterize ((current-build-output-port logging-port)
(real-error-port previous-error-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) (combine-log-parts! logging-conn id)
;; This can happen with GC, so do it explicitly ;; This can happen with GC, so do it explicitly