ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 06:42:14 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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