From 59fd7d2987d36b4e026c1d7d8e0e05e3b546d489 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 15 May 2026 17:09:58 +0300 Subject: 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 --- genenetwork-development.scm | 9 +++++---- 1 file 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 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 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")))))))) -- cgit 1.4.1