From 254149f7ab93c474a906d8fb51132329700e4be6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 3 Jul 2026 16:44:46 +0100
Subject: klaus: Add gunicorn-workers field.

---
 guix/forge/klaus.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'guix/forge/klaus.scm')

diff --git a/guix/forge/klaus.scm b/guix/forge/klaus.scm
index 11cdbd5..157a974 100644
--- a/guix/forge/klaus.scm
+++ b/guix/forge/klaus.scm
@@ -34,6 +34,7 @@
                                              nginx-location-configuration))
   #:use-module (gnu system file-systems)
   #:use-module (guix deprecation)
+  #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix records)
   #:export (<klaus-configuration>
@@ -44,6 +45,7 @@
             klaus-configuration-socket
             klaus-configuration-repository-directory
             klaus-configuration-site-name
+            klaus-configuration-gunicorn-workers
             klaus-service-type
             klaus-gunicorn-app))
 
@@ -74,16 +76,19 @@
   (repository-directory klaus-configuration-repository-directory
                         (default "/srv/git"))
   (site-name klaus-configuration-site-name
-             (default #f)))
+             (default #f))
+  (gunicorn-workers klaus-configuration-gunicorn-workers
+                    (default #~(* 2 (total-processor-count)))))
 
 (define klaus-gunicorn-apps
   (match-record-lambda <klaus-configuration>
-    (python-klaus socket repository-directory site-name)
+    (python-klaus socket repository-directory site-name gunicorn-workers)
     (list (gunicorn-app
            (name "klaus")
            (package python-klaus)
            (wsgi-app-module "klaus.contrib.wsgi_autoreload")
            (sockets (list socket))
+           (workers gunicorn-workers)
            (environment-variables (cons* (environment-variable
                                           (name "KLAUS_REPOS_ROOT")
                                           (value repository-directory))
-- 
cgit 1.4.1