clean up build warnings on Windows

This commit is contained in:
Joey Hess 2017-11-14 14:14:10 -04:00
parent 8dd84b87f9
commit 07c4be500d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 10 additions and 8 deletions

View file

@ -105,7 +105,7 @@ getSocket h = do
addr <- inet_addr "127.0.0.1"
sock <- socket AF_INET Stream defaultProtocol
preparesocket sock
bindSocket sock (SockAddrInet aNY_PORT addr)
bind sock (SockAddrInet aNY_PORT addr)
use sock
where
#else