about summary refs log tree commit diff
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)