01/05: store: Pass a socket type hint to 'getaddrinfo'.

[Ludovic Court�s]

civodul pushed a commit to branch master
in repository guix.

commit 7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd
Author: Ludovic Courtès <l...@gnu.org>
Date:   Wed Jun 21 23:00:08 2017 +0200

    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 b584caa..9b4c655 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