From a8c2a8fda6cc086f7056e92c1fbc781dcc9bd83a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 27 Jan 2018 19:31:06 +0100
Subject: cuirass: Place web server fiber on its own core.

* bin/cuirass.in (main): Pass #:parallel? to 'spawn-fiber' for the web
server.
---
 bin/cuirass.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 4431a60..580c2be 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -139,7 +139,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
                        'web-server exit-channel
                        (lambda ()
                          (with-database db
-                           (run-cuirass-server db #:host host #:port port)))))
+                           (run-cuirass-server db #:host host #:port port))))
+                      #:parallel? #t)
 
                      (primitive-exit (get-message exit-channel))))))
 
-- 
cgit v1.2.3