From ca7beb74e1aae5c1f9e44d5da9f44143467d253b Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Tue, 24 Dec 2019 03:28:49 -0600
Subject: update BNW and service

---
 gn/services/bnw-container.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'gn/services/bnw-container.scm')

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")))
                            ))))
-- 
cgit v1.2.3


From 9b6bbd15a281fa6259485d3b481725812291b46d Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Tue, 24 Dec 2019 06:04:24 -0600
Subject: Remove all packages from the BNW container

---
 gn/services/bnw-container.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'gn/services/bnw-container.scm')

diff --git a/gn/services/bnw-container.scm b/gn/services/bnw-container.scm
index c896020..8463a75 100644
--- a/gn/services/bnw-container.scm
+++ b/gn/services/bnw-container.scm
@@ -75,8 +75,10 @@
                (bootloader grub-bootloader)
                (target "does-not-matter")))
   (file-systems %base-file-systems)
-  ;; No firmware for VMs
+  ;; No firmware for VMs.
   (firmware '())
+  ;; We don't need any packages inside the container.
+  (packages '())
 
   (services (list (service dhcp-client-service-type)
                   (service bnw-service-type
-- 
cgit v1.2.3