aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-04-02 10:30:07 +0200
committerLudovic Courtès <ludo@gnu.org>2021-04-02 23:22:14 +0200
commit973b8af72549c9c41a3c7650e76313cab2939ae1 (patch)
tree730f428820d300990c840bf3a2724c0facf72e77
parente025de68c353e8cfac7172bb60db03eb8586415a (diff)
downloadguix-973b8af72549c9c41a3c7650e76313cab2939ae1.tar
guix-973b8af72549c9c41a3c7650e76313cab2939ae1.tar.gz
git: Remove unused variables.
This is a followup to 298f9d29d6c26e408a90d08d147d926aa6f81ab3, which left those variables despite being unnecessary. * guix/git.scm (clone*, update-cached-checkout): Remove unused 'auth-method' variable.
-rw-r--r--guix/git.scm12
1 files changed, 5 insertions, 7 deletions
diff --git a/guix/git.scm b/guix/git.scm
index a5103547d3..1820036f25 100644
--- a/guix/git.scm
+++ b/guix/git.scm
@@ -185,10 +185,9 @@ make sure no empty directory is left behind."
(lambda ()
(mkdir-p directory)
- (let ((auth-method (%make-auth-ssh-agent)))
- (clone url directory
- (make-clone-options
- #:fetch-options (make-default-fetch-options)))))
+ (clone url directory
+ (make-clone-options
+ #:fetch-options (make-default-fetch-options))))
(lambda _
(false-if-exception (rmdir directory)))))
@@ -389,9 +388,8 @@ it unchanged."
;; Only fetch remote if it has not been cloned just before.
(when (and cache-exists?
(not (reference-available? repository ref)))
- (let ((auth-method (%make-auth-ssh-agent)))
- (remote-fetch (remote-lookup repository "origin")
- #:fetch-options (make-default-fetch-options))))
+ (remote-fetch (remote-lookup repository "origin")
+ #:fetch-options (make-default-fetch-options)))
(when recursive?
(update-submodules repository #:log-port log-port))