nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

substitute: Avoid repeated calls to 'length'. 

* 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 @@ if file doesn't exist, and the narinfo otherwise."
(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