[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Mathieu Othacehe |
Date: |
Sat, 1 Aug 2020 07:23:22 -0400 (EDT) |
branch: master
commit a24bed0b1f1c6852253b4b0b699ad8bfaf432f6c
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Jul 31 10:42:44 2020 +0200
web: Add monitoring fiber.
* bin/cuirass.in (main): Add monitoring fiber in web mode.
---
bin/cuirass.in | 21 +++++++++++++++------
1 file 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)