Override cgit's fcgiwrap extension: run 4 processes. HEAD main

Override the cgit-service object and change the fcgiwrap-service extension to
run 4 processes, instead of the default 1.

1 files changed, 30 insertions, 10 deletions

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 195cbbd..e2bf71d 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -72,6 +72,7 @@
              (guix utils)
              (forge acme)
              (forge cgit)
+             (forge fcgiwrap)
              (forge forge)
              (forge laminar)
              (forge nginx)
@@ -1681,6 +1682,24 @@ delete-test-users, etc.) as the genenetwork user via sudo."
                     (chdir orig-dir)
                     (delete-file-recursively tmp-dir))))))))))
 
+(define (override-fcgiwrap-extension cgit-service)
+  (service
+   (service-type
+     (inherit (service-kind cgit-service))
+     (extensions
+      (map (lambda (ext)
+             (if (eq? (service-extension-target ext) fcgiwrap-service-type)
+                 (service-extension
+                  (service-extension-target ext)
+                  (compose list
+                           (lambda (cfg)
+                             (fcgiwrap-instance (inherit (car cfg))
+                                                (processes 4)))
+                           (service-extension-compute ext)))
+                 ext))
+           (service-type-extensions (service-kind cgit-service)))))
+   (service-value cgit-service)))
+
 
 (operating-system
   (host-name "genenetwork-development")
@@ -1720,16 +1739,17 @@ delete-test-users, etc.) as the genenetwork user via sudo."
                                              guile-lapack-project
                                              guile-lmdb-project
                                              guix-bioinformatics-project))))
-                   (service cgit-service-type
-                            (cgit-configuration
-                             (server-name "git.genenetwork.org")
-                             (repository-directory "/home/git/public")
-                             (extra-options
-                              (list (cons "cache-root" "/var/cache/cgit")
-                                    (cons "cache-size" "1000")
-                                    (cons "cache-root-ttl" "5")
-                                    (cons "cache-repo-ttl" "5")
-                                    (cons "cache-dynamic-ttl" "5")))))
+                   (override-fcgiwrap-extension
+                    (service cgit-service-type
+                             (cgit-configuration
+                               (server-name "git.genenetwork.org")
+                               (repository-directory "/home/git/public")
+                               (extra-options
+                                (list (cons "cache-root" "/var/cache/cgit")
+                                      (cons "cache-size" "1000")
+                                      (cons "cache-root-ttl" "5")
+                                      (cons "cache-repo-ttl" "5")
+                                      (cons "cache-dynamic-ttl" "5"))))))
                    (service laminar-service-type
                             (laminar-configuration
                              (title "GeneNetwork CI")