summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-21 23:00:08 +0200
committerLudovic Courtès <ludo@gnu.org>2017-06-22 10:59:06 +0200
commit7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd (patch)
treefd81e847e49ee1096932f0042fd1ba612dd33dd8 /guix
parentace6cc12d3fc7fa63a9dd171b356314c2ff5ff44 (diff)
store: Pass a socket type hint to 'getaddrinfo'.
* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo' call.
Diffstat (limited to 'guix')
-rw-r--r--guix/store.scm4
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