diff options
| author | Arun Isaac | 2022-02-28 14:15:53 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-02-28 18:10:05 +0530 |
| commit | 74febb7121d5e54cd388ab4e8176c8774ffcd438 (patch) | |
| tree | b1327a7de10e9e554fa178e20bb6cc73e55f2e01 /forge | |
| parent | 8b900587e7e4334170191aec22b117034f4c39ed (diff) | |
| download | guix-forge-74febb7121d5e54cd388ab4e8176c8774ffcd438.tar.gz guix-forge-74febb7121d5e54cd388ab4e8176c8774ffcd438.tar.lz guix-forge-74febb7121d5e54cd388ab4e8176c8774ffcd438.zip | |
forge: Clone the default branch, not any specific branch.
* forge/build/git.scm (download-git-to-store): Demote branch to
optional keyword argument.
* forge/forge.scm (derivation-job-gexp): Do not pass the branch
argument to download-git-to-store.
* doc/forge.skb (Reference)[<forge-project>]: Document that the
repository-branch field is unused.
Diffstat (limited to 'forge')
| -rw-r--r-- | forge/build/git.scm | 12 | ||||
| -rw-r--r-- | forge/forge.scm | 1 |
2 files changed, 9 insertions, 4 deletions
diff --git a/forge/build/git.scm b/forge/build/git.scm index 428589e..5978a3e 100644 --- a/forge/build/git.scm +++ b/forge/build/git.scm @@ -40,9 +40,10 @@ (newline) (force-output)) -(define* (download-git-to-store store name url branch #:key show-commit?) +(define* (download-git-to-store store name url #:key branch show-commit?) "Download BRANCH of git repository from URL to STORE under NAME and -return store path. git and certificates should be in the environment." +return store path. If BRANCH is not specified, the default branch is +downloaded. git and certificates should be in the environment." (call-with-temporary-directory (lambda (directory) (with-directory-excursion directory @@ -53,7 +54,12 @@ return store path. git and certificates should be in the environment." (invoke-error-arguments condition) (invoke-error-exit-status condition)) (exit #f))) - (invoke "git" "clone" "--quiet" "--depth" "1" "--branch" branch url ".")) + (apply invoke + "git" "clone" "--quiet" "--depth" "1" url + (append (if branch + (list "--branch" branch) + (list)) + (list ".")))) (when show-commit? (hline) (invoke "git" "--no-pager" "log") diff --git a/forge/forge.scm b/forge/forge.scm index 5814593..5c61d4c 100644 --- a/forge/forge.scm +++ b/forge/forge.scm @@ -210,7 +210,6 @@ file name or URI designating the Guix daemon endpoint." #$(string-append (forge-project-name project) "-checkout") #$(forge-project-repository project) - #$(forge-project-repository-branch project) #:show-commit? #t)) (drv (gexp->derivation #$(string-append (forge-laminar-job-name job) |