guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Tweak exception handling when loading revisions

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
Show Stats 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)
(if (eq?
(with-time-logging (string-append "loading revision " commit)
(with-time-logging (string-append "processing revision " commit)
(setup-logging
id
(lambda ()
(with-exception-handler
(const #f)
(lambda ()
(with-exception-handler
(lambda (exn)
(simple-format (current-error-port)
"error: load-new-guix-revision: ~A\n"
exn)
(backtrace)
#f)
(with-throw-handler #t
(lambda ()
(with-store-connection
(lambda (store)
(load-new-guix-revision conn
store
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))))
#t)
(begin