aboutsummaryrefslogtreecommitdiff
path: root/genenetwork/development-helper.scm
diff options
context:
space:
mode:
Diffstat (limited to 'genenetwork/development-helper.scm')
-rw-r--r--genenetwork/development-helper.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm
index 7899630..353bf1a 100644
--- a/genenetwork/development-helper.scm
+++ b/genenetwork/development-helper.scm
@@ -101,13 +101,14 @@ with genenetwork3 dependencies."
(invoke "pylint" "gn3"))
(mkdir-p #$output)))))
-(define (genenetwork2-runner-gexp genenetwork2-source profile gn3-port genotype-files)
+(define (genenetwork2-runner-gexp genenetwork2-source profile gn3-port
+ genotype-files xapian-db-path)
"Return a G-expression that runs the genenetwork2 server for
GENENETWORK2-SOURCE in PROFILE. GENENETWORK2-SOURCE is a checkout of
the genenetwork2 source code. PROFILE is a profile with genenetwork2
dependencies. GN3-PORT is the port on which a local instance of
genenetwork3 is listening. GENOTYPE-FILES is the path to genotype
-files."
+files. XAPIAN-DB-PATH is the path to the xapian search index."
(with-imported-modules '((guix build utils))
(with-profile profile
#~(begin
@@ -128,6 +129,7 @@ files."
(setenv "SQL_URI" "mysql://webqtlout:webqtlout@localhost/db_webqtl")
(setenv "HOME" "/tmp")
(setenv "NO_REDIS" "no-redis")
+ (setenv "XAPIAN_DB_PATH" #$xapian-db-path)
(invoke "sh" "bin/genenetwork2")))))))
(define (genenetwork3-runner-gexp genenetwork3-source profile)