diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-24 09:03:04 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-24 09:03:04 +0000 |
commit | c47834e710e3fc4d92e0cf67d6e0f5188826573c (patch) | |
tree | 8b6b2f9ef195a2dd6d24f9b66c1790c0610e21da | |
parent | c33d3f570bd32afc2def410067db6b92ad6aff0a (diff) | |
download | build-coordinator-c47834e710e3fc4d92e0cf67d6e0f5188826573c.tar build-coordinator-c47834e710e3fc4d92e0cf67d6e0f5188826573c.tar.gz |
Improve some logging
I think exceptions are happening, but the existing logging isn't working.
-rw-r--r-- | guix-build-coordinator/agent.scm | 4 | ||||
-rw-r--r-- | guix-build-coordinator/utils.scm | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 6700bdd..e8f6e9d 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -337,7 +337,11 @@ but the guix-daemon claims it's unavailable" (parameterize ((current-build-output-port log-port)) (build-things store missing-paths))) (lambda (key . args) + (log-msg lgr 'ERROR + "exception when fetching missing paths " + key ": " args) (display (get-output-string log-port)) + (display (newline)) (close-output-port log-port)))))))) #:times 6 #:delay (+ 15 (random 30))) diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 5fd98f5..8f18625 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -628,6 +628,9 @@ References: ~a~%" (unlock-mutex queue-mutex) (with-exception-handler (lambda (exn) + (simple-format (current-error-port) + "requeuing job due to exception: ~A\n" + exn) ;; Add the job back to the queue so that it's tried again (apply process-job job-args)) (lambda () |