about summary refs log tree commit diff
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2023-06-08 11:23:56 +0300
committerArun Isaac2023-06-08 12:25:37 +0100
commitff4e69b4b2da29ab35627864b0e5d839fa758a96 (patch)
tree3d63661b12b11a023396eff2cc44e89538620314
parent6f13dfd5c5aacef518b7f97e0d903e6927fb7e3f (diff)
downloadgn-machines-ff4e69b4b2da29ab35627864b0e5d839fa758a96.tar.gz
Share auth-db-path with genenetwork3-pola-wrapper.
* genenetwork-development.scm (genenetwork-shepherd-services): Share
auth-db-path with genenetwork3-pola-wrapper.

Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
-rw-r--r--genenetwork-development.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index c1717b1..8d6c03f 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -485,7 +485,7 @@ server described by CONFIG, a <genenetwork-configuration> object."
   "Return shepherd services to run the genenetwork development server
 described by CONFIG, a <genenetwork-configuration> object."
   (match-record config <genenetwork-configuration>
-    (gn2-port gn3-port genotype-files data-directory xapian-db-path)
+    (gn2-port gn3-port genotype-files data-directory xapian-db-path auth-db-path)
     (list (shepherd-service
            (documentation "Run GeneNetwork 2 development server.")
            (provision '(genenetwork2))
@@ -533,7 +533,11 @@ described by CONFIG, a <genenetwork-configuration> object."
                                                 (target source))
                                                (file-system-mapping
                                                 (source xapian-db-path)
-                                                (target source)))
+                                                (target source))
+                                               (file-system-mapping
+                                                (source auth-db-path)
+                                                (target source)
+                                                (writable? #t)))
                               #:namespaces (delq 'net %namespaces))
                            "127.0.0.1" #$(number->string gn3-port))
                      #:user "genenetwork"