diff options
Diffstat (limited to 'genenetwork-development.scm')
| -rw-r--r-- | genenetwork-development.scm | 9 |
1 files changed, 6 insertions, 3 deletions
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")) |