branch: master
commit 6822b4735ffd3b1c9f1b93d9b3dd45d85ed15380
Author: Ludovic Courtès <[email protected]>
Date: Tue Jan 23 17:23:07 2018 +0100
Call 'run-cuirass-server' outside of a fiber.
This seems to fix a bug whereby the server would never process the FD
returned by 'accept'.
* bin/cuirass.in (main): Move 'run-cuirass-server' outside of
'spawn-fiber'.
---
bin/cuirass.in | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/bin/cuirass.in b/bin/cuirass.in
index 725712d..4553567 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -115,12 +115,10 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0"
"$@"
(process-specs db (db-get-specifications db))
(log-message "sleeping for ~a seconds" interval)
(sleep interval)))))
- (spawn-fiber
- (lambda ()
- (with-database db
- (run-cuirass-server db
- #:host host
- #:port port))))
+ (with-database db
+ (run-cuirass-server db
+ #:host host
+ #:port port))
*unspecified*))))
#:drain? #t)))))))
