diff options
Diffstat (limited to 'genenetwork/development-helper.scm')
-rw-r--r-- | genenetwork/development-helper.scm | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm index 9bf737d..e65f9da 100644 --- a/genenetwork/development-helper.scm +++ b/genenetwork/development-helper.scm @@ -101,55 +101,3 @@ with genenetwork3 dependencies." (find-files "." shell-script?)) (invoke "pylint" "gn3")) (mkdir-p #$output))))) - -(define (genenetwork2-runner-gexp genenetwork2-source profile gn3-port - genotype-files) - "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." - (with-imported-modules '((guix build utils)) - (with-profile profile - #~(begin - (use-modules (guix build utils) - (ice-9 match)) - - (chdir #$genenetwork2-source) - (match (command-line) - ((_ ip port) - (setenv "SERVER_PORT" port) - (setenv "GN2_PROFILE" #$profile) - (setenv "GN_PROXY_URL" "http://genenetwork.org/gn3-proxy/") - (setenv "GN_SERVER_URL" "/api3") - (setenv "GN3_LOCAL_URL" - (string-append "http://localhost:" - (number->string #$gn3-port))) - (setenv "GENENETWORK_FILES" #$genotype-files) - (setenv "SQL_URI" "mysql://webqtlout:webqtlout@localhost/db_webqtl") - (setenv "HOME" "/tmp") - (setenv "NO_REDIS" "no-redis") - (setenv "RUST_BACKTRACE" "1") - (invoke "sh" "bin/genenetwork2" "etc/default_settings.py" "-gunicorn-prod"))))))) - -(define (genenetwork3-runner-gexp genenetwork3-source config-file profile) - "Return a G-expression that runs the genenetwork3 server for -GENENETWORK3-SOURCE in PROFILE. GENENETWORK3-SOURCE is a checkout of -the genenetwork3 source code. CONFIG-FILE is a file containing -configuration settings for genenetwork3. PROFILE is a profile with -genenetwork3 dependencies." - (with-imported-modules '((guix build utils)) - (with-profile profile - #~(begin - (use-modules (guix build utils) - (ice-9 match)) - - (chdir #$genenetwork3-source) - (setenv "GN3_CONF" #$config-file) - (setenv "HOME" "/tmp") - (match (command-line) - ((_ ip port) - (invoke "gunicorn" - "-b" (string-append ip ":" port) - "gn3.app:create_app()"))))))) |