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

Tweak exception handling when loading revisions

Browse source
This commit is contained in:
Christopher Baines 2021-02-03 12:52:53 +00:00
parent 481b1c186f
commit 570c667222
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1790,27 +1790,26 @@ SKIP LOCKED")
id commit source) id commit source)
(if (eq? (if (eq?
(with-time-logging (string-append "loading revision " commit) (with-time-logging (string-append "processing revision " commit)
(setup-logging (setup-logging
id id
(lambda () (lambda ()
(with-exception-handler (with-exception-handler
(const #f) (const #f)
(lambda () (lambda ()
(with-exception-handler (with-throw-handler #t
(lambda (exn)
(simple-format (current-error-port)
"error: load-new-guix-revision: ~A\n"
exn)
(backtrace)
#f)
(lambda () (lambda ()
(with-store-connection (with-store-connection
(lambda (store) (lambda (store)
(load-new-guix-revision conn (load-new-guix-revision conn
store store
git-repository-id git-repository-id
commit)))))) commit))))
(lambda (key . args)
(simple-format (current-error-port)
"error: load-new-guix-revision: ~A ~A\n"
key args)
(backtrace))))
#:unwind? #t)))) #:unwind? #t))))
#t) #t)
(begin (begin