store: Pass a socket type hint to 'getaddrinfo'.
* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo' call.
This commit is contained in:
parent
ace6cc12d3
commit
7ae97a4c3f
|
@ -399,7 +399,9 @@ (define addresses
|
|||
(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
|
||||
|
|
Loading…
Reference in a new issue