diff options
| author | Frederick Muriuki Muriithi | 2025-08-19 14:24:15 -0500 |
|---|---|---|
| committer | Frederick Muriuki Muriithi | 2025-08-20 09:09:55 -0500 |
| commit | 66b067cbd4103dd0113ae37c11152c6f5397ff38 (patch) | |
| tree | aeee8f90f4045cdd13ef430736d2adcca65f205b | |
| parent | b4c876923de3140af4cd2dc981113c09594265d9 (diff) | |
| download | gn-machines-66b067cbd4103dd0113ae37c11152c6f5397ff38.tar.gz | |
Provide runtime directory path to each 'least-authority-wrapper'.
| -rwxr-xr-x | genenetwork-development-deploy.sh | 1 | ||||
| -rw-r--r-- | genenetwork-development.scm | 9 |
2 files changed, 7 insertions, 3 deletions
diff --git a/genenetwork-development-deploy.sh b/genenetwork-development-deploy.sh index d63dcf0..d7dd3ad 100755 --- a/genenetwork-development-deploy.sh +++ b/genenetwork-development-deploy.sh @@ -45,6 +45,7 @@ container_script=$(guix system container --network \ --share=/export/data/lmdb \ --share=/var/run/mysqld=/run/mysqld \ --share=/export/data/gn-docs/ \ + --share=/export2/guix-containers/genenetwork-development/var/runtime-cwds=/var/runtimes \ genenetwork-development.scm) echo $container_script diff --git a/genenetwork-development.scm b/genenetwork-development.scm index 3e35e42..aee7211 100644 --- a/genenetwork-development.scm +++ b/genenetwork-development.scm @@ -800,7 +800,7 @@ described by CONFIG, a <genenetwork-configuration> object." (target source) (writable? #t))) #:namespaces (delq 'net %namespaces) - #:directory "/tmp") + #:directory "/var/runtimes/genenetwork2") "127.0.0.1" #$(number->string gn2-port)) #:user "genenetwork" #:group "genenetwork" @@ -872,7 +872,7 @@ described by CONFIG, a <genenetwork-configuration> object." (target source) (writable? #t))) #:namespaces (delq 'net %namespaces) - #:directory "/tmp") + #:directory "/var/runtimes/genenetwork3") "127.0.0.1" #$(number->string gn3-port)) #:user "genenetwork" #:group "genenetwork" @@ -934,7 +934,10 @@ described by CONFIG, a <genenetwork-configuration> object." ;; Create runtime directories for the different services (for-each (lambda (service-name) - (mkdir (string-append "/var/runtimes/" service-name))) + (let ((service-runtime-dir (string-append "/var/runtimes/" service-name))) + (when (file-exists? service-runtime-dir) + (delete-file-recursively service-runtime-dir)) + (mkdir service-runtime-dir))) (list "gn-auth" "gn-guile" "gn-uploader" "genenetwork3" "genenetwork2")) |