aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-05-14 11:08:47 +0100
committerChristopher Baines <mail@cbaines.net>2023-05-14 11:08:47 +0100
commite0f9851522bcbd082f8a3cc7ec41dd5c3492dbe9 (patch)
treeff02c1e5a43ca92fe7e277e1354e7a3785e39865 /guix-build-coordinator/agent-messaging
parentfa74164db0e61ceb68b1408efa02b96b48d80342 (diff)
downloadbuild-coordinator-e0f9851522bcbd082f8a3cc7ec41dd5c3492dbe9.tar
build-coordinator-e0f9851522bcbd082f8a3cc7ec41dd5c3492dbe9.tar.gz
Move some logging
So if it fails, it doesn't leave things in an inconsistent state.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
-rw-r--r--guix-build-coordinator/agent-messaging/http/server.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm
index 4233ebc..5c5e8af 100644
--- a/guix-build-coordinator/agent-messaging/http/server.scm
+++ b/guix-build-coordinator/agent-messaging/http/server.scm
@@ -397,6 +397,9 @@ port. Also, the port used can be changed by passing the --port option.\n"
(cons update-channel
existing-channels))))
(begin
+ (log-msg logger 'DEBUG build-uuid
+ ": starting thread to compute hash for " filename)
+
(hash-set! update-channels-by-filename
filename
(list update-channel))
@@ -409,9 +412,6 @@ 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