aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-08-29 12:42:44 +0100
committerChristopher Baines <mail@cbaines.net>2023-08-29 13:17:33 +0100
commitcbded42c284cca4ecaaebbf0a666cf89efc465a7 (patch)
treeedcd6cfdaf52a576006baac3ce8fd29a5ced23dc
parentdba89707dea33b6c37949afb38876367800c3348 (diff)
downloadbuild-coordinator-cbded42c284cca4ecaaebbf0a666cf89efc465a7.tar
build-coordinator-cbded42c284cca4ecaaebbf0a666cf89efc465a7.tar.gz
Add more logging around hooks
-rw-r--r--guix-build-coordinator/coordinator.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 471c398..9d05775 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -1108,6 +1108,10 @@
(core-guile-sleep 10)
(cancel #f))
(lambda ()
+ (log-msg (build-coordinator-logger build-coordinator)
+ 'DEBUG
+ "running " event " handler (id: " id
+ ", arguments: " arguments ")")
(call-with-duration-metric
(build-coordinator-metrics-registry build-coordinator)
"hook_duration_seconds"
@@ -1119,7 +1123,7 @@
#:label-values `((event . ,event)))))
(log-msg (build-coordinator-logger build-coordinator)
'DEBUG
- event " handler finished")
+ event " (" id ") handler finished")
(datastore-delete-unprocessed-hook-event datastore id)
;; If this is the hook for a successful build, once the hook