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 99e78b9..f73a932 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -652,7 +652,7 @@ a @code{<genenetwork-configuration>} record." #$(program-file "samples-count-script-gexp" (samples-count-script-gexp config))))) -(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)) @@ -672,7 +672,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))))) @@ -694,7 +694,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 |