diff options
author | Christopher Baines <mail@cbaines.net> | 2024-04-21 10:42:37 +0100 |
---|---|---|
committer | Guix Patches Tester <> | 2024-04-21 11:53:23 +0200 |
commit | 263aec1d57e31fc7b36ae5168c8e832731099cbb (patch) | |
tree | 9622d2a926400ef2e092d72f4d50028592dc5d2e | |
parent | a0960a3403e3db5e593b357d610ae474b931b144 (diff) | |
download | guix-patches-263aec1d57e31fc7b36ae5168c8e832731099cbb.tar guix-patches-263aec1d57e31fc7b36ae5168c8e832731099cbb.tar.gz |
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
-rw-r--r-- | guix/http-client.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index 024705e9ec..a8d7d25762 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) |