cgit: Add fcgiwrap-processes field.

1 files changed, 7 insertions, 3 deletions

diff --git a/guix/forge/cgit.scm b/guix/forge/cgit.scm
index 2be21cb..0956eb6 100644
--- a/guix/forge/cgit.scm
+++ b/guix/forge/cgit.scm
@@ -1,5 +1,5 @@
 ;;; guix-forge --- Guix software forge meta-service
-;;; Copyright © 2023–2025 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2023–2026 Arun Isaac <arunisaac@systemreboot.net>
 ;;;
 ;;; This file is part of guix-forge.
 ;;;
@@ -54,6 +54,7 @@
             cgit-configuration-repository-sort
             cgit-configuration-plain-email?
             cgit-configuration-extra-options
+            cgit-configuration-fcgiwrap-processes
             cgit-service-type))
 
 (define %cgit-readme
@@ -108,7 +109,9 @@
   (plain-email? cgit-configuration-noplainemail?
                 (default #false))
   (extra-options cgit-configuration-extra-options
-                 (default '())))
+                 (default '()))
+  (fcgiwrap-processes cgit-configuration-fcgiwrap-processes
+                      (default #~(* 2 (total-processor-count)))))
 
 (define (sanitize-cgit-snapshots snapshots)
   (let ((valid-snapshots (list "tar" "tar.gz" "tar.bz2" "tar.lz"
@@ -222,12 +225,13 @@ configured in @var{config}."
 
 (define (cgit-fcgiwrap-instance config)
   (match-record config <cgit-configuration>
-    (cgit git repository-directory)
+    (cgit git repository-directory fcgiwrap-processes)
     (let ((cgitrc (computed-file "cgitrc" (cgitrc-gexp config))))
       (fcgiwrap-instance
        (name "cgit")
        (user "nginx")
        (group "nginx")
+       (processes fcgiwrap-processes)
        (environment-variables (list (environment-variable
                                      (name "CGIT_CONFIG")
                                      (value cgitrc))))