aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-01-03 11:53:39 +0000
committerChristopher Baines <mail@cbaines.net>2021-01-03 11:53:39 +0000
commitdf9c29f46e21f530ef76938a605fb189d82eab48 (patch)
treec8be96e45e359374b30a85f833028117cb0090bd
parent94a4bda7c7163ed5fd2e901e5f2306b6b680e615 (diff)
downloadbuild-coordinator-df9c29f46e21f530ef76938a605fb189d82eab48.tar
build-coordinator-df9c29f46e21f530ef76938a605fb189d82eab48.tar.gz
Add debugging code for the agent status output
As this doesn't seem to be working properly when running under the shepherd.
-rw-r--r--guix-build-coordinator/agent.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 78800ea..1f08dd0 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -204,7 +204,7 @@
(call-with-new-thread
(lambda ()
(while #t
- (get-line (current-input-port))
+ (peek "LINE" (get-line (peek "INPUT" (current-input-port))))
(display-info))))
(while #t