diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 7a2d5ae..b2721de 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -143,12 +143,21 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (let ((exit-channel (make-channel))) (if (option-ref opts 'web #f) - (spawn-fiber - (essential-task - 'web exit-channel - (lambda () - (run-cuirass-server #:host host #:port port))) - #:parallel? #t) + (begin + (spawn-fiber + (essential-task + 'web exit-channel + (lambda () + (run-cuirass-server #:host host #:port port))) + #:parallel? #t) + + (spawn-fiber + (essential-task + 'monitor exit-channel + (lambda () + (while #t + (log-monitoring-stats) + (sleep 600)))))) (begin (clear-build-queue) |