mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/scripts/substitute.scm (fetch-narinfos)[handle-narinfo-response]:
Add missing call to 'update-progress!'.
This commit is contained in:
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 @@ (define (handle-narinfo-response request response port result)
#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)