diff options
| -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) |