From 66ce38914ad32eddf53fcd40d76b42260e7dec6d Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 11 Nov 2025 23:25:06 +0300
Subject: Set the respawn limit for gn{-auth,2,3} to 5s from 0.5s.

---
 genenetwork-development.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

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"
-- 
cgit 1.4.1