aboutsummaryrefslogtreecommitdiff
path: root/forge
diff options
context:
space:
mode:
Diffstat (limited to 'forge')
-rw-r--r--forge/build/git.scm12
-rw-r--r--forge/forge.scm1
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)