aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xfallback-deploy.sh1
-rw-r--r--fallback.scm1
-rw-r--r--genenetwork/services/genenetwork.scm12
3 files changed, 13 insertions, 1 deletions
diff --git a/fallback-deploy.sh b/fallback-deploy.sh
index 782ccb7..6e2e9e9 100755
--- a/fallback-deploy.sh
+++ b/fallback-deploy.sh
@@ -40,6 +40,7 @@ container_script=$(guix system container \
--share=/export/data/genenetwork-sqlite \
--expose=/export/data/genenetwork/genotype_files \
--share=/var/run/mysqld=/run/mysqld \
+ --share=/export/source/fallback-debug \
fallback.scm)
name=/usr/local/bin/fallback-system-container
diff --git a/fallback.scm b/fallback.scm
index 72a83df..bbf3c0d 100644
--- a/fallback.scm
+++ b/fallback.scm
@@ -65,5 +65,6 @@
(xapian-db "/export/data/genenetwork-xapian")
(genotype-files "/export/data/genenetwork/genotype_files")
(sparql-endpoint "http://localhost:8892/sparql")
+ (gn-sourcecode-directory "/export/source/fallback-debug")
(gn3-data-directory "/export/data/genenetwork")))
%base-services)))
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index 5e97454..0fc2fae 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -47,6 +47,7 @@
genenetwork-configuration-xapian-db
genenetwork-configuration-genotype-files
genenetwork-configuration-sparql-endpoint
+ genenetwork-configuration-gn-sourcecode-directory
genenetwork-configuration-gn3-data-directory
genenetwork-configuration-gn2-secrets
genenetwork-configuration-gn3-secrets
@@ -86,6 +87,8 @@
(default "/var/genenetwork/genotype-files"))
(sparql-endpoint genenetwork-configuration-sparql-endpoint
(default "http://localhost:8081/sparql"))
+ (gn-sourcecode-directory genenetwork-configuration-gn-sourcecode-directory
+ (default "/var/empty"))
(gn3-data-directory genenetwork-configuration-gn3-data-directory
(default "/var/genenetwork"))
(gn2-secrets genenetwork-configuration-gn2-secrets
@@ -180,7 +183,7 @@ G-expressions or numbers."
described by @var{config}, a @code{<genenetwork-configuration>}
object."
(match-record config <genenetwork-configuration>
- (genenetwork2 genenetwork3 gn-auth server-name gn-auth-server-name gn2-port gn3-port gn-auth-port sql-uri auth-db xapian-db genotype-files sparql-endpoint gn3-data-directory gn2-secrets gn3-secrets gn-auth-secrets)
+ (genenetwork2 genenetwork3 gn-auth server-name gn-auth-server-name gn2-port gn3-port gn-auth-port sql-uri auth-db xapian-db genotype-files sparql-endpoint gn-sourcecode-directory gn3-data-directory gn2-secrets gn3-secrets gn-auth-secrets)
;; If we mapped only the mysqld.sock socket file, it would break
;; when the external mysqld server is restarted.
(let* ((database-mapping (file-system-mapping
@@ -207,6 +210,7 @@ object."
(configuration-file-gexp
`(("AUTH_DB" ,auth-db)
("DATA_DIR" ,gn3-data-directory)
+ ("SOURCE_DIR" ,gn-sourcecode-directory)
("SPARQL_ENDPOINT" ,sparql-endpoint)
("SQL_URI" ,sql-uri)
("XAPIAN_DB_PATH" ,xapian-db)))))
@@ -237,6 +241,9 @@ object."
(source genotype-files)
(target source))
(file-system-mapping
+ (source gn-sourcecode-directory)
+ (target source))
+ (file-system-mapping
(source gn2-conf)
(target source))
(file-system-mapping
@@ -274,6 +281,9 @@ object."
(source gn3-secrets)
(target source))
(file-system-mapping
+ (source gn-sourcecode-directory)
+ (target source))
+ (file-system-mapping
(source gn3-data-directory)
(target source))
(file-system-mapping