mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid using now deprecated PortNum constructor

Browse source
This commit is contained in:
Joey Hess 2015-05-10 15:49:47 -04:00
parent 0375331c61
commit 082b1590ce
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Pairing/MakeRemote.hs
View file

@ -88,8 +88,8 @@ bestHostName msg = case remoteHostName $ pairMsgData msg of
fallback = do fallback = do
let a = pairMsgAddr msg let a = pairMsgAddr msg
let sockaddr = case a of let sockaddr = case a of
IPv4Addr addr -> SockAddrInet (PortNum 0) addr IPv4Addr addr -> SockAddrInet (fromInteger 0) addr
IPv6Addr addr -> SockAddrInet6 (PortNum 0) 0 addr 0 IPv6Addr addr -> SockAddrInet6 (fromInteger 0) 0 addr 0
fromMaybe (showAddr a) fromMaybe (showAddr a)
<$> catchDefaultIO Nothing <$> catchDefaultIO Nothing
(fst <$> getNameInfo [] True False sockaddr) (fst <$> getNameInfo [] True False sockaddr)