ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

git: Remove unused variables.

Browse source 
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.
This commit is contained in:
Ludovic Courtès 2021-04-02 10:30:07 +02:00
parent e025de68c3
commit 973b8af725
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/git.scm
View file

@ -185,10 +185,9 @@ (define (clone* url directory)
(lambda () (lambda ()
(mkdir-p directory) (mkdir-p directory)
(let ((auth-method (%make-auth-ssh-agent))) (clone url directory
(clone url directory (make-clone-options
(make-clone-options #:fetch-options (make-default-fetch-options))))
#:fetch-options (make-default-fetch-options)))))
(lambda _ (lambda _
(false-if-exception (rmdir directory))))) (false-if-exception (rmdir directory)))))
@ -389,9 +388,8 @@ (define canonical-ref
;; Only fetch remote if it has not been cloned just before. ;; Only fetch remote if it has not been cloned just before.
(when (and cache-exists? (when (and cache-exists?
(not (reference-available? repository ref))) (not (reference-available? repository ref)))
(let ((auth-method (%make-auth-ssh-agent))) (remote-fetch (remote-lookup repository "origin")
(remote-fetch (remote-lookup repository "origin") #:fetch-options (make-default-fetch-options)))
#:fetch-options (make-default-fetch-options))))
(when recursive? (when recursive?
(update-submodules repository #:log-port log-port)) (update-submodules repository #:log-port log-port))