~ruther/guix-local: substitute: Update progress for responses different from 200/404.

fc3ea24bf44d2d47dfb2ba8b1ac4d3a971f5e4c4 — Ludovic Courtès 10 years ago f1723b8

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

* guix/scripts/substitute.scm (fetch-narinfos)[handle-narinfo-response]:
Add missing call to 'update-progress!'.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/scripts/substitute.scm

M guix/scripts/substitute.scm => guix/scripts/substitute.scm +2 -1

@@ 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)