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

* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo' call.
2017-06-21 23:00:08 +02:00 · 2017-06-21 23:00:08 +02:00 · 7ae97a4c3f
parent ace6cc12d3
commit 7ae97a4c3f
1 changed files with 3 additions and 1 deletions
--- 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