me
/
guix
Archived
1
0
Fork 0
Code

substitute: Update progress for responses different from 200/404. 

* guix/scripts/substitute.scm (fetch-narinfos)[handle-narinfo-response]:
Add missing call to 'update-progress!'.
master
Ludovic Courtès 2016-03-17 15:35:55 +01:00
parent f1723b8be6
commit fc3ea24bf4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/scripts/substitute.scm
View File

@ -607,10 +607,11 @@ if file doesn't exist, and the narinfo otherwise."
#f ttl)
(update-progress!)
result))
(else ; transient failure
(else ; transient failure: 504...
(if len
(get-bytevector-n port len)
(read-to-eof port))
(update-progress!)
result))))
(define (do-fetch uri port)