aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-12-24 09:03:04 +0000
committerChristopher Baines <mail@cbaines.net>2020-12-24 09:03:04 +0000
commitc47834e710e3fc4d92e0cf67d6e0f5188826573c (patch)
tree8b6b2f9ef195a2dd6d24f9b66c1790c0610e21da /guix-build-coordinator/agent.scm
parentc33d3f570bd32afc2def410067db6b92ad6aff0a (diff)
downloadbuild-coordinator-c47834e710e3fc4d92e0cf67d6e0f5188826573c.tar
build-coordinator-c47834e710e3fc4d92e0cf67d6e0f5188826573c.tar.gz
Improve some logging
I think exceptions are happening, but the existing logging isn't working.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r--guix-build-coordinator/agent.scm4
1 files changed, 4 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)))