about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2026-05-15 17:09:58 +0300
committerMunyoki Kilyungi2026-05-15 18:17:03 +0300
commit59fd7d2987d36b4e026c1d7d8e0e05e3b546d489 (patch)
treeea840d578b2c1026d0002e52dec521a2559695c8
parentf4e82c0d6cb0dcee86d7ad2ba8d9af5a17ae0620 (diff)
downloadgn-machines-59fd7d2987d36b4e026c1d7d8e0e05e3b546d489.tar.gz
Fix gn-guile gn-docs local clone.
* genenetwork-development.scm (gn-guile-gexp): Use "file://" prefix
when cloning the local gn-docs repository to avoid Git's "dubious
ownership" check and to make "--depth" work for local clones.  Add
explicit "gn-guile" target to the git clone command.  Use
CURRENT-REPO-PATH and the CGIT_REPO_PATH environment variable instead
of hardcoded paths for the gn-docs local checkout and remote URL
arguments to gn-guile.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--genenetwork-development.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 67e39a9..00ef307 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -757,11 +757,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 +771,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"))))))))