about summary refs log tree commit diff
path: root/genenetwork-development.scm
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2026-06-09 16:35:37 -0500
committerFrederick Muriuki Muriithi2026-06-09 19:12:05 -0500
commit6102dec798651c63be5a216fabfdacaa3efd01ad (patch)
treee4e08c80b3f38fd03fe231bf596d90de12e44ba4 /genenetwork-development.scm
parentec498d64a6c4c04b308d1be63e7aa20d226163e9 (diff)
downloadgn-machines-add-integration-tests-to-cd.tar.gz
Override cgit's fcgiwrap extension: run 4 processes. add-integration-tests-to-cd
Override the cgit-service object and change the fcgiwrap-service extension to
run 4 processes, instead of the default 1.
Diffstat (limited to 'genenetwork-development.scm')
-rw-r--r--genenetwork-development.scm40
1 files changed, 30 insertions, 10 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index e681c88..28d7a44 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -74,6 +74,7 @@
              (guix utils)
              (forge acme)
              (forge cgit)
+             (forge fcgiwrap)
              (forge forge)
              (forge laminar)
              (forge nginx)
@@ -1682,6 +1683,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")
@@ -1721,16 +1740,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")