2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00

Improve the error reporting within process-load-new-guix-revision-job

By including a backtrace.
This commit is contained in:
Christopher Baines 2020-02-27 21:14:58 +00:00
parent b166177dbd
commit a95c5ca5c9

View file

@ -1589,20 +1589,20 @@ SKIP LOCKED")
(setup-logging
id
(lambda ()
(catch #t
(with-exception-handler
(lambda (exn)
(simple-format (current-error-port)
"error: load-new-guix-revision: ~A\n"
exn)
(backtrace)
#f)
(lambda ()
(with-store-connection
(lambda (store)
(load-new-guix-revision conn
store
git-repository-id
commit))))
(lambda (key . args)
(simple-format
(current-error-port)
"error: load-new-guix-revision: ~A ~A\n"
key args)
#f)))))
commit))))))))
#t))
(begin
(record-job-succeeded conn id)