Pass in the bare repository path to the gexp

Pass in the bare repository path to the gexp and use it instead of
fetching the value from the environment. This decouples the gexp from
changes in the code, e.g. should the environment variable name be
changed, we do not have to change this gexp.

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