03/08: substitute: Download nar from another server upon ETIMEDOUT.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8136c1578eadbd0630695d86d52b6227db791539
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Apr 17 16:00:16 2023 +0200

    substitute: Download nar from another server upon ETIMEDOUT.
    
    Previously, 'guix substitute' would fail abruptly with something like:
    
      guix substitute: warning: while fetching 
https://ci.guix.gnu.org/nar/lzip/…-example: server is somewhat slow
      guix substitute: warning: try `--no-substitutes' if the problem persists
      guix substitute: error: connect*: Connection timed out
      substitution of /gnu/store/…-example failed
    
    * guix/scripts/substitute.scm (network-error?): Add ETIMEDOUT.
---
 guix/scripts/substitute.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 109b0c7900..2bbe045364 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -577,7 +577,7 @@ STATUS-PORT."
       (or (and (system-error? exception)
                (let ((errno (system-error-errno
                              (cons 'system-error (exception-args exception)))))
-                 (memv errno (list ECONNRESET ECONNABORTED
+                 (memv errno (list ECONNRESET ECONNABORTED ETIMEDOUT
                                    ECONNREFUSED EHOSTUNREACH
                                    ENOENT))))     ;for "file://"
           (and (kind-and-args? exception)