diff options
| -rw-r--r-- | genenetwork-development.scm | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm index e4ddc2c..cf27171 100644 --- a/genenetwork-development.scm +++ b/genenetwork-development.scm @@ -271,6 +271,8 @@ describing genenetwork2." #~(make-forkexec-constructor/container (list #$(development-server-configuration-executable-path config) "127.0.0.1" (number->string #$(development-server-configuration-port config))) + #:user "genenetwork" + #:group "genenetwork" #:mappings (list (file-system-mapping (source #$(development-server-configuration-executable-path config)) (target source)) @@ -301,12 +303,26 @@ describing genenetwork2." #$%genenetwork3-port #$%genotype-files)))))) +(define %genenetwork-accounts + (list (user-group + (name "genenetwork") + (system? #t)) + (user-account + (name "genenetwork") + (group "genenetwork") + (system? #t) + (comment "GeneNetwork user") + (home-directory "/var/empty") + (shell (file-append shadow "/sbin/nologin"))))) + (define genenetwork2-service-type (service-type (name 'genenetwork2) (description "Run GeneNetwork 2 development server and CI.") (extensions - (list (service-extension activation-service-type + (list (service-extension account-service-type + (const %genenetwork-accounts)) + (service-extension activation-service-type development-server-activation) (service-extension shepherd-root-service-type (compose list genenetwork2-shepherd-service)) @@ -410,6 +426,8 @@ command to be executed." #~(make-forkexec-constructor/container (list #$(development-server-configuration-executable-path config) "127.0.0.1" #$(number->string (development-server-configuration-port config))) + #:user "genenetwork" + #:group "genenetwork" #:mappings (list (file-system-mapping (source #$(development-server-configuration-executable-path config)) (target source)) @@ -441,7 +459,9 @@ command to be executed." (name 'genenetwork3) (description "Run GeneNetwork 3.") (extensions - (list (service-extension activation-service-type + (list (service-extension account-service-type + (const %genenetwork-accounts)) + (service-extension activation-service-type development-server-activation) (service-extension shepherd-root-service-type (compose list genenetwork3-shepherd-service)) |