06/11: http-client: Include EPIPE in network-error?.

[guix-commits]

guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 999a8a668bb03e4bd42566184fd348f4d7666b53
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Thu Apr 18 14:21:21 2024 +0100

    http-client: Include EPIPE in network-error?.
    
    The substitute script checks for EPIPE errors, so this allows using
    network-error?.
    
    * guix/http-client.scm (network-error?): Include EPIPE.
    
    Change-Id: I96d76d77997ed21a38bf9c41479fea67ab01e084
---
 guix/http-client.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/http-client.scm b/guix/http-client.scm
index 28ace406b5..dade780008 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -93,7 +93,7 @@
                (let ((errno (system-error-errno
                              (cons 'system-error (exception-args exception)))))
                  (memv errno (list ECONNRESET ECONNABORTED ETIMEDOUT
-                                   ECONNREFUSED EHOSTUNREACH
+                                   ECONNREFUSED EHOSTUNREACH EPIPE
                                    ENOENT))))     ;for "file://"
           (and (kind-and-args? exception)
                (memq (exception-kind exception)