From 973b8af72549c9c41a3c7650e76313cab2939ae1 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 2 Apr 2021 10:30:07 +0200 Subject: 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 a5103547d3..1820036f25 100644 --- a/guix/git.scm +++ b/guix/git.scm @@ -185,10 +185,9 @@ (define (clone* url directory) (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 @@ (define canonical-ref ;; 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)) -- cgit v1.2.3