From fc3ea24bf44d2d47dfb2ba8b1ac4d3a971f5e4c4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 17 Mar 2016 15:35:55 +0100
Subject: [PATCH] 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(-)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 1ab18d02604e8816d822719ffabe4ffea2e35dbd..efbcfe78ca107028bd9a510250d7d5cebc87bf5e 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)