~ruther/guix-local: store: Pass a socket type hint to 'getaddrinfo'.

7ae97a4c3f241e6d6e9b8bc6d13ff8d4d9ded9bd — Ludovic Courtès 8 years ago ace6cc1

store: Pass a socket type hint to 'getaddrinfo'.

* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo'
call.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M guix/store.scm

M guix/store.scm => guix/store.scm +3 -1

@@ 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