From fc3ea24bf44d2d47dfb2ba8b1ac4d3a971f5e4c4 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 17 Mar 2016 15:35:55 +0100
Subject: 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 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/scripts/substitute.scm')

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 1ab18d0260..efbcfe78ca 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -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)
-- 
cgit v1.2.3