ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/store.scm (open-inet-socket): Pass hints in the 'getaddrinfo'
call.
This commit is contained in:
Ludovic Courtès 2017-06-21 23:00:08 +02:00
parent ace6cc12d3
commit 7ae97a4c3f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/store.scm
View file

@ -399,7 +399,9 @@ (define addresses
(if (number? port) (number->string port) port) (if (number? port) (number->string port) port)
(if (number? port) (if (number? port)
(logior AI_ADDRCONFIG AI_NUMERICSERV) (logior AI_ADDRCONFIG AI_NUMERICSERV)
AI_ADDRCONFIG))) AI_ADDRCONFIG)
0 ;any address family
SOCK_STREAM)) ;TCP only
(let loop ((addresses addresses)) (let loop ((addresses addresses))
(match addresses (match addresses