TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

substitute: Avoid repeated calls to 'length'.

Browse source 
* guix/scripts/substitute.scm (fetch-narinfos)[update-progress!]: Move
'length' call outside of lambda.
This commit is contained in:
Ludovic Courtès 2017-07-21 14:13:58 +02:00 committed by Ludovic Courtès
parent 3d3e93b3f9
commit 75a4d86f50
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/scripts/substitute.scm
View file

@ -601,13 +601,14 @@ (define (narinfo-from-file file url)
(define (fetch-narinfos url paths) (define (fetch-narinfos url paths)
"Retrieve all the narinfos for PATHS from the cache at URL and return them." "Retrieve all the narinfos for PATHS from the cache at URL and return them."
(define update-progress! (define update-progress!
(let ((done 0)) (let ((done 0)
(total (length paths)))
(lambda () (lambda ()
(display #\cr (current-error-port)) (display #\cr (current-error-port))
(force-output (current-error-port)) (force-output (current-error-port))
(format (current-error-port) (format (current-error-port)
(G_ "updating list of substitutes from '~a'... ~5,1f%") (G_ "updating list of substitutes from '~a'... ~5,1f%")
url (* 100. (/ done (length paths)))) url (* 100. (/ done total)))
(set! done (+ 1 done))))) (set! done (+ 1 done)))))
(define hash-part->path (define hash-part->path