[Ludovic Courtès]

branch: master
commit dfd1ff4582f23bea282d6bee91c09f756a3b262b
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Tue Aug 22 22:15:54 2023 +0200

    remote-worker: Sleep after reporting low disk space.
    
    Fixes a regression introduced in
    0dbd460cf1b40f6450e4b4da93ec1a719ebaafa8 whereby 'cuirass remote-worker'
    would keep spinning and displaying "warning: low disk space" when that
    condition is met.
    
    * src/cuirass/scripts/remote-worker.scm (start-worker): Call 'sleep' on
    low disk space.
---
 src/cuirass/scripts/remote-worker.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/scripts/remote-worker.scm 
b/src/cuirass/scripts/remote-worker.scm
index 96a0b4a..991cce6 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -366,7 +366,9 @@ and executing them.  The worker can reply on the same 
socket."
          (spawn-worker-ping worker server)
          (let loop ()
            (if (low-disk-space?)
-               (log-info (G_ "warning: low disk space, doing nothing"))
+               (begin
+                 (log-info (G_ "warning: low disk space, doing nothing"))
+                 (sleep (%request-period)))
                (begin
                  (log-info (G_ "~a: request work.") (worker-name wrk))
                  (request-work socket worker)