diff options
| author | Efraim Flashner | 2019-12-24 03:28:49 -0600 |
|---|---|---|
| committer | Efraim Flashner | 2019-12-24 03:28:49 -0600 |
| commit | ca7beb74e1aae5c1f9e44d5da9f44143467d253b (patch) | |
| tree | 00862658352883b95f7c5db5489ecef5546604d6 /gn/services/bnw-container.scm | |
| parent | 49415a72997507597342f8e9ca2281042d3cba3b (diff) | |
| download | guix-bioinformatics-ca7beb74e1aae5c1f9e44d5da9f44143467d253b.tar.gz | |
update BNW and service
Diffstat (limited to 'gn/services/bnw-container.scm')
| -rw-r--r-- | gn/services/bnw-container.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gn/services/bnw-container.scm b/gn/services/bnw-container.scm index 2e5e521..c896020 100644 --- a/gn/services/bnw-container.scm +++ b/gn/services/bnw-container.scm @@ -13,7 +13,7 @@ (package bnw-configuration-package ; package (default bnw)) (deploy-directory bnw-deploy-directory ; string - (default "/home/bnw/server")) + (default "/srv/http")) (port bnw-configuration-port ; list of strings (default '("8880")))) @@ -23,11 +23,12 @@ #~(begin (use-modules (guix build utils)) (when (directory-exists? #$deploy-directory) - (delete-file-recusively #$deploy-directory)) + ;; Not 'delete-file-recursively' because the directory might be empty. + (system* "rm" "-r" #$(string-append deploy-directory "/*"))) (mkdir-p #$deploy-directory) (copy-recursively #$package #$deploy-directory) - (system* #$(file-append coreutils "/bin/chmod") "a+w" - (string-append #$deploy-directory "/sourcecodes/data")))))) + (invoke #$(file-append coreutils "/bin/chmod") "a+w" + (string-append #$deploy-directory "/sourcecodes/data")))))) (define bnw-nginx-config (match-lambda @@ -37,7 +38,7 @@ (server-name '("Bayesian Network")) (listen port) ;(root package) - (root "/srv/http") + (root deploy-directory) (locations (list (nginx-php-location) @@ -81,6 +82,5 @@ (service bnw-service-type ;; The following is for testing: ;(bnw-configuration - ; (deploy-directory "/home/efraimf/bnw") ; (port '("8888"))) )))) |