diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-23 17:23:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-23 17:23:07 +0100 |
| commit | 6822b4735ffd3b1c9f1b93d9b3dd45d85ed15380 (patch) | |
| tree | 1fe2fc5bfc892a2d8b853e0cca9d30ee58a1abe3 | |
| parent | f92ad7001fc9c17edcbe2c28705d6e15b88c63da (diff) | |
| download | cuirass-6822b4735ffd3b1c9f1b93d9b3dd45d85ed15380.tar cuirass-6822b4735ffd3b1c9f1b93d9b3dd45d85ed15380.tar.gz | |
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'.
| -rw-r--r-- | bin/cuirass.in | 10 |
1 files 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))))))) |