From 6822b4735ffd3b1c9f1b93d9b3dd45d85ed15380 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 23 Jan 2018 17:23:07 +0100
Subject: 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)))))))
-- 
cgit v1.2.3