aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-05-14 10:27:22 +0100
committerChristopher Baines <mail@cbaines.net>2023-05-14 10:27:22 +0100
commitfa74164db0e61ceb68b1408efa02b96b48d80342 (patch)
treeb49b13d99e7e9713781df66793204dd40072065f /guix-build-coordinator/agent-messaging
parent508b8c321747029eae83051b71134efd048f5e0a (diff)
downloadbuild-coordinator-fa74164db0e61ceb68b1408efa02b96b48d80342.tar
build-coordinator-fa74164db0e61ceb68b1408efa02b96b48d80342.tar.gz
Add more logging around computing hashes
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
-rw-r--r--guix-build-coordinator/agent-messaging/http/server.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm
index 798e8fc..4233ebc 100644
--- a/guix-build-coordinator/agent-messaging/http/server.scm
+++ b/guix-build-coordinator/agent-messaging/http/server.scm
@@ -390,6 +390,8 @@ port. Also, the port used can be changed by passing the --port option.\n"
(hash-ref update-channels-by-filename
filename)
(lambda (existing-channels)
+ (log-msg logger 'DEBUG build-uuid
+ ": adding channel to list for " filename)
(hash-set! update-channels-by-filename
filename
(cons update-channel
@@ -407,6 +409,9 @@ port. Also, the port used can be changed by passing the --port option.\n"
(stat:size (stat filename))
0))
+ (log-msg logger 'DEBUG build-uuid
+ ": starting thread to compute hash for " filename)
+
(call-with-new-thread
(lambda ()
(with-exception-handler