diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 580c2be..5c11ff0 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -142,6 +142,14 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (run-cuirass-server db #:host host #:port port)))) #:parallel? #t) + (spawn-fiber + (essential-task + 'monitor exit-channel + (lambda () + (while #t + (log-monitoring-stats) + (sleep 600))))) + (primitive-exit (get-message exit-channel)))))) ;; Most of our code is I/O so preemption doesn't matter much (it |