diff options
Diffstat (limited to 'genenetwork')
| -rw-r--r-- | genenetwork/services/genenetwork.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm index 7f232dc..15999a2 100644 --- a/genenetwork/services/genenetwork.scm +++ b/genenetwork/services/genenetwork.scm @@ -128,8 +128,8 @@ (default "/opt/home/gn-guile/.ssh/known_hosts")) (gn-guile-working-dir genenetwork-configuration-gn-guile-working-dir (default "/export/data")) - (gn-doc-git-checkout genenetwork-configuration-gn-doc-git-checkout - (default "/export/data/gn-docs")) + (gn-doc-remote-uri genenetwork-configuration-gn-doc-remote-uri + (default "/export/data/gn-docs.git")) (gn-docs-working-branch genenetwork-configuration-gn-docs-working-branch (default "gn-production-branch")) (gn-virtuoso-ttl-directory genenetwork-configuration-gn-virtuoso-ttl-directory @@ -670,7 +670,7 @@ a @code{<genenetwork-configuration>} record." (values config (match-record config <genenetwork-configuration> - (gn-guile-port gn-guile gn-guile-ssh-identity-file gn-guile-known-hosts-file gn-doc-git-checkout gn-docs-working-branch) + (gn-guile-port gn-guile gn-guile-ssh-identity-file gn-guile-known-hosts-file gn-doc-remote-uri gn-docs-working-branch) (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) @@ -696,12 +696,12 @@ a @code{<genenetwork-configuration>} record." (setenv "GIT_COMMITTER_NAME" "genenetwork") (setenv "GIT_COMMITTER_EMAIL" "no-reply@git.genenetwork.org") (setenv "CURRENT_REPO_PATH" current-repo-path) - (setenv "CGIT_REPO_PATH" #$gn-doc-git-checkout) + (setenv "CGIT_REPO_PATH" #$gn-doc-remote-uri) (when (file-exists? current-repo-path) (delete-file-recursively current-repo-path)) (invoke #$(file-append git-minimal "/bin/git") - "clone" "--depth" "1" "--branch" #$gn-docs-working-branch #$gn-doc-git-checkout)) + "clone" "--depth" "1" "--branch" #$gn-docs-working-branch #$gn-doc-remote-uri)) (invoke #$(file-append gn-guile "/bin/gn-guile") (number->string #$gn-guile-port))))))) |