From ced26b60129a74463952ca0ddf42e0ceeeb8e1fc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 26 Jan 2018 14:37:22 +0100
Subject: cuirass: Reduce Fiber's tick rate.

* bin/cuirass.in (main): Pass #:hz to 'run-fibers'.
---
 bin/cuirass.in | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'bin')

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 8f3fbf4..13de395 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -152,4 +152,10 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
 
                      (primitive-exit (get-message exit-channel))))))
 
+           ;; Most of our code is I/O so preemption doesn't matter much (it
+           ;; could help while we're doing SQL requests, for instance, but it
+           ;; doesn't actually help since these are non-resumable
+           ;; continuations.)  Thus, reduce the tick rate.
+           #:hz 10
+
            #:drain? #t)))))))
-- 
cgit v1.2.3