about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2025-11-11 23:25:06 +0300
committerMunyoki Kilyungi2025-11-12 08:13:07 +0300
commit66ce38914ad32eddf53fcd40d76b42260e7dec6d (patch)
treee1225da85ef615dafcd41a0754fcdfbae5bcb88f
parent5d06f82431cdcdb6cb1125e19b3a64bfa819ba67 (diff)
downloadgn-machines-66ce38914ad32eddf53fcd40d76b42260e7dec6d.tar.gz
Set the respawn limit for gn{-auth,2,3} to 5s from 0.5s.
-rw-r--r--genenetwork-development.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 3df8229..d302ba2 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -809,6 +809,9 @@ described by CONFIG, a <genenetwork-configuration> object."
            (modules '((guix search-paths)
                       (ice-9 match)
                       (srfi srfi-1)))
+	   ;; KLUDGE: The default value of 0.5 is too low, and causes
+	   ;; gn2 to be disabled when it is respawned "too fast."
+	   (respawn-delay 5)
            (start
             (let* ((gn2-manifest (packages->manifest (list genenetwork2)))
                    (gn2-profile (profile
@@ -887,6 +890,9 @@ described by CONFIG, a <genenetwork-configuration> object."
            (documentation "Run GeneNetwork 3 development server.")
            (provision '(genenetwork3))
            (requirement '(networking gn-auth))
+	   ;; KLUDGE: The default value of 0.5 is too low, and causes
+	   ;; gn3 to be disabled when it is respawned "too fast."
+	   (respawn-delay 5)
            (start #~(make-forkexec-constructor
                      (list #$(least-authority-wrapper
                               (program-file "genenetwork3"
@@ -944,6 +950,9 @@ described by CONFIG, a <genenetwork-configuration> object."
            (documentation "Run gn-auth development server.")
            (provision '(gn-auth))
            (requirement '(networking))
+	   ;; KLUDGE: The default value of 0.5 is too low, and causes
+	   ;; gn-auth to be disabled when it is respawned "too fast."
+	   (respawn-delay 5)
            (start #~(make-forkexec-constructor
                      (list #$(least-authority-wrapper
                               (program-file "gn-auth"