aboutsummaryrefslogtreecommitdiff
path: root/gn/services/bnw-container.scm
diff options
context:
space:
mode:
authorEfraim Flashner2021-03-04 15:17:27 +0200
committerEfraim Flashner2021-03-04 15:22:29 +0200
commit697a66bf0e897a101e8e3cefbaf250491039fe93 (patch)
treed40eb3aabad0b8c68e0dff6df1ea52d25aa8565d /gn/services/bnw-container.scm
parentb08410a9944e677ef71267410b235ba869f3935f (diff)
downloadguix-bioinformatics-697a66bf0e897a101e8e3cefbaf250491039fe93.tar.gz
gn: Update bnw to latest version.
Update bnw and the service
Diffstat (limited to 'gn/services/bnw-container.scm')
-rw-r--r--gn/services/bnw-container.scm17
1 files changed, 10 insertions, 7 deletions
diff --git a/gn/services/bnw-container.scm b/gn/services/bnw-container.scm
index 39da38d..4046a4f 100644
--- a/gn/services/bnw-container.scm
+++ b/gn/services/bnw-container.scm
@@ -5,6 +5,7 @@
(guix records)
(ice-9 match))
(use-service-modules networking web)
+(use-package-modules base)
(define-record-type* <bnw-configuration>
bnw-configuration
@@ -21,10 +22,12 @@
(match-lambda
(($ <bnw-configuration> package deploy-directory port)
#~(begin
- (mkdir-p #$deploy-directory)
- (copy-recursively #$package #$deploy-directory)
- (invoke #$(file-append coreutils "/bin/chmod") "a+w"
- (string-append #$deploy-directory "/sourcecodes/data"))))))
+ (let ((genenet "/var/lib/genenet/bnw"))
+ ;(mkdir-p #$deploy-directory)
+ ;(copy-recursively #$package #$deploy-directory)
+ (mkdir-p genenet)
+ (copy-recursively #$(file-append package "/var_lib_genenet_bnw") genenet)
+ (invoke #$(file-append coreutils "/bin/chmod") "a+w" genenet))))))
(define bnw-nginx-config
(match-lambda
@@ -33,8 +36,8 @@
(nginx-server-configuration
(server-name '("Bayesian Network"))
(listen port)
- ;(root package)
- (root deploy-directory)
+ (root package)
+ ;(root deploy-directory)
(locations
(list
(nginx-php-location)
@@ -74,7 +77,7 @@
;; No firmware for VMs.
(firmware '())
;; We don't need any packages inside the container.
- (packages '())
+ (packages (list coreutils))
(services (list (service dhcp-client-service-type)
(service bnw-service-type