diff options
Diffstat (limited to 'genenetwork-development.scm')
| -rw-r--r-- | genenetwork-development.scm | 40 |
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") |