[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: substitute: Update progress for responses different from 200/404.
From: |
Ludovic Courtès |
Subject: |
01/05: substitute: Update progress for responses different from 200/404. |
Date: |
Thu, 17 Mar 2016 22:54:24 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit fc3ea24bf44d2d47dfb2ba8b1ac4d3a971f5e4c4
Author: Ludovic Courtès <address@hidden>
Date: Thu Mar 17 15:35:55 2016 +0100
substitute: Update progress for responses different from 200/404.
* guix/scripts/substitute.scm (fetch-narinfos)[handle-narinfo-response]:
Add missing call to 'update-progress!'.
---
guix/scripts/substitute.scm | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 1ab18d0..efbcfe7 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -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)