03/04: git: Remove unused variables.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 973b8af72549c9c41a3c7650e76313cab2939ae1
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Apr 2 10:30:07 2021 +0200

    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.
---
 guix/git.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/guix/git.scm b/guix/git.scm
index a510354..1820036 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))