diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-05-10 15:49:47 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-10 15:49:47 -0400 |
| commit | eed3f3b09b642d1db653d84788953eac81880e01 (patch) | |
| tree | c677a4dbbd1907511610f3d7b54f2bc35b21bf0d /Assistant/Pairing | |
| parent | 246e7278f4770c87277c9e8aeedfba17547859d8 (diff) | |
avoid using now deprecated PortNum constructor
Diffstat (limited to 'Assistant/Pairing')
| -rw-r--r-- | Assistant/Pairing/MakeRemote.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Pairing/MakeRemote.hs b/Assistant/Pairing/MakeRemote.hs index 05533e270..e2e120e22 100644 --- a/Assistant/Pairing/MakeRemote.hs +++ b/Assistant/Pairing/MakeRemote.hs @@ -88,8 +88,8 @@ bestHostName msg = case remoteHostName $ pairMsgData msg of fallback = do let a = pairMsgAddr msg let sockaddr = case a of - IPv4Addr addr -> SockAddrInet (PortNum 0) addr - IPv6Addr addr -> SockAddrInet6 (PortNum 0) 0 addr 0 + IPv4Addr addr -> SockAddrInet (fromInteger 0) addr + IPv6Addr addr -> SockAddrInet6 (fromInteger 0) 0 addr 0 fromMaybe (showAddr a) <$> catchDefaultIO Nothing (fst <$> getNameInfo [] True False sockaddr) |