[no subject]

[Ludovic Court�s]

branch: master
commit 6822b4735ffd3b1c9f1b93d9b3dd45d85ed15380
Author: Ludovic Courtès <address@hidden>
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:address@hidden@} --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)))))))