diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-21 23:00:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-22 10:59:06 +0200 |
| commit | 7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd (patch) | |
| tree | fd81e847e49ee1096932f0042fd1ba612dd33dd8 | |
| parent | ace6cc12d3fc7fa63a9dd171b356314c2ff5ff44 (diff) | |
| download | guix-7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd.tar guix-7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd.tar.gz | |
store: Pass a socket type hint to 'getaddrinfo'.
* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo'
call.
| -rw-r--r-- | guix/store.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/store.scm b/guix/store.scm index b584caa073..9b4c65532e 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -399,7 +399,9 @@ (if (number? port) (number->string port) port) (if (number? port) (logior AI_ADDRCONFIG AI_NUMERICSERV) - AI_ADDRCONFIG))) + AI_ADDRCONFIG) + 0 ;any address family + SOCK_STREAM)) ;TCP only (let loop ((addresses addresses)) (match addresses |