klaus: Add gunicorn-workers field. HEAD main

1 files changed, 7 insertions, 2 deletions

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))