aboutsummaryrefslogtreecommitdiff
path: root/bin/cuirass.in
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-01-27 19:31:06 +0100
committerLudovic Courtès <ludo@gnu.org>2018-01-27 19:31:06 +0100
commita8c2a8fda6cc086f7056e92c1fbc781dcc9bd83a (patch)
treec319c898363f060f9281cb40201d71a49f875d66 /bin/cuirass.in
parent0098e613dbd910063a63d50d9ea5028b2892b619 (diff)
downloadcuirass-a8c2a8fda6cc086f7056e92c1fbc781dcc9bd83a.tar
cuirass-a8c2a8fda6cc086f7056e92c1fbc781dcc9bd83a.tar.gz
cuirass: Place web server fiber on its own core.
* bin/cuirass.in (main): Pass #:parallel? to 'spawn-fiber' for the web server.
Diffstat (limited to 'bin/cuirass.in')
-rw-r--r--bin/cuirass.in3
1 files changed, 2 insertions, 1 deletions
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))))))