diff options
Diffstat (limited to 'genenetwork-development.scm')
| -rw-r--r-- | genenetwork-development.scm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm index 67e39a9..941d2eb 100644 --- a/genenetwork-development.scm +++ b/genenetwork-development.scm @@ -575,6 +575,7 @@ server described by CONFIG, a <genenetwork-configuration> object." "--max-requests" "100" "--max-requests-jitter" "30" "--timeout" "1200" + "--log-level" "debug" "gn2.wsgi"))))))) (define (genenetwork3-cd-gexp config) @@ -644,7 +645,8 @@ server described by CONFIG, a <genenetwork-configuration> object." ;; gunicorn's default 30 second timeout is ;; insufficient for Fahamu AI endpoints and ;; results in worker timeout errors. - "--timeout" "1200")))))))) + "--timeout" "1200" + "--log-level" "debug")))))))) (define (gn-auth-cd-gexp config) "Return a G-expression that runs the latest gn-auth development @@ -708,6 +710,7 @@ server described by CONFIG, a <genenetwork-configuration> object." (invoke #$(file-append gunicorn "/bin/gunicorn") "-b" #$(string-append "localhost:" (number->string gn-auth-port)) "--workers" "8" + "--log-level" "debug" "gn_auth.wsgi:app")))))))) (define (gn-guile-gexp gn-guile-port) @@ -757,11 +760,12 @@ server described by CONFIG, a <genenetwork-configuration> object." ;; be persistent. (unless (file-exists? current-repo-path) (invoke #$(file-append git-minimal "/bin/git") - "clone" "--depth" "1" (getenv "CGIT_REPO_PATH") current-repo-path)) + "clone" "--depth" "1" + (string-append "file://" (getenv "CGIT_REPO_PATH")) current-repo-path)) (when (file-exists? "gn-guile") (delete-file-recursively "gn-guile")) - (invoke "git" "clone" "--depth" "1" "https://git.genenetwork.org/gn-guile") + (invoke "git" "clone" "--depth" "1" "https://git.genenetwork.org/gn-guile" "gn-guile") (with-directory-excursion "gn-guile" (setenv "HOME" "/home/genenetwork/gn-guile") @@ -770,9 +774,9 @@ server described by CONFIG, a <genenetwork-configuration> object." "--port" (number->string #$gn-guile-port) "--gn-docs-local-checkout" - "/home/genenetwork/gn-docs" + current-repo-path "--gn-docs-remote-url" - "https://git.genenetwork.org/gn-guile" + (getenv "CGIT_REPO_PATH") "--gn-docs-working-branch" "gn-cd-branch")))))))) @@ -1615,8 +1619,12 @@ gn-guile to display RDF pages." %genenetwork2-port %genenetwork3-port) (laminar-reverse-proxy-server-block "localhost:9089" %webhook-port - (list 'gn-bioinformatics - 'guix-bioinformatics)) + (list 'guix + 'guix-past + 'guix-forge + 'gn-machines + 'guix-bioinformatics + 'guix-rust-past-crates)) (tissue-reverse-proxy-server-block) (gn-auth-reverse-proxy-server-block) (gn-guile-reverse-proxy-server-block))))) |