about summary refs log tree commit diff
path: root/genenetwork/development-helper.scm
diff options
context:
space:
mode:
Diffstat (limited to 'genenetwork/development-helper.scm')
-rw-r--r--genenetwork/development-helper.scm52
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()")))))))