From 7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 21 Jun 2017 23:00:08 +0200
Subject: [PATCH] store: Pass a socket type hint to 'getaddrinfo'.

* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo'
call.
---
 guix/store.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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