diff options
| -rw-r--r-- | genenetwork/services/genenetwork.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index 60fe718..153e87d 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -683,7 +683,7 @@ a @code{<genenetwork-configuration>} record." (make-non-human-data-public-cron-gexp config)) #:user "gunicorn-gn-auth"))) -(define (gn-guile-gexp gn-guile-port gn-guile-pkg) +(define (gn-guile-gexp gn-guile-port gn-guile-pkg bare-repo) (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) @@ -703,7 +703,7 @@ a @code{<genenetwork-configuration>} record." (delete-file-recursively current-repo-path)) (setenv "CURRENT_REPO_PATH" current-repo-path) (invoke #$(file-append git-minimal "/bin/git") - "clone" "--depth" "1" (getenv "CGIT_REPO_PATH"))) + "clone" "--depth" "1" #$bare-repo)) (invoke #$(file-append gn-guile "/bin/gn-guile") (number->string #$gn-guile-port))))) @@ -725,7 +725,7 @@ a @code{<genenetwork-configuration>} record." #~(make-forkexec-constructor (list #$(least-authority-wrapper (program-file "gn-guile" - (gn-guile-gexp gn-guile-port gn-guile)) + (gn-guile-gexp gn-guile-port gn-guile gn-doc-git-checkout)) #:name "gn-guile-pola-wrapper" #:directory (dirname gn-doc-git-checkout) #:preserved-environment-variables |