git: Remove unused variables.
This is a followup to 298f9d29d6
, which
left those variables despite being unnecessary.
* guix/git.scm (clone*, update-cached-checkout): Remove unused
'auth-method' variable.
master
parent
e025de68c3
commit
973b8af725
12
guix/git.scm
12
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))
|
||||
|
||||
|
|
Reference in New Issue