aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2025-02-19 22:51:50 +0000
committerChristopher Baines <mail@cbaines.net>2025-02-19 22:51:50 +0000
commit29d8ac1f1b0a4caf3dd52ef6e3bd7e2c82fd6d04 (patch)
tree893f6c3cb842f39735dcb094f2ac62928a81b42c
parent66661074938766ec9c49e0bd115771cd4aed613a (diff)
downloadbuild-coordinator-29d8ac1f1b0a4caf3dd52ef6e3bd7e2c82fd6d04.tar
build-coordinator-29d8ac1f1b0a4caf3dd52ef6e3bd7e2c82fd6d04.tar.gz
Log the relay from reading derivations
-rw-r--r--guix-build-coordinator/client-communication.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm
index 2d11c2b..0ecac5a 100644
--- a/guix-build-coordinator/client-communication.scm
+++ b/guix-build-coordinator/client-communication.scm
@@ -509,7 +509,10 @@
(call-with-thread
utility-thread-pool
(lambda ()
- (read-derivation-from-file* derivation-file))))
+ (call-with-delay-logging
+ read-derivation-from-file*
+ #:args (list derivation-file)
+ #:threshold 10))))
(let ((submit-build-result
(call-with-delay-logging