From b70401c23869b02a2fa1229b78e40aa824d9fbe2 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 21 Jan 2017 05:39:18 -0500 Subject: getBindAddress falls back to ipv4. --- src/Network/BitTorrent/Address.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Network/BitTorrent/Address.hs b/src/Network/BitTorrent/Address.hs index ed02f7ff..b4ce96b0 100644 --- a/src/Network/BitTorrent/Address.hs +++ b/src/Network/BitTorrent/Address.hs @@ -1281,6 +1281,8 @@ getBindAddress listenPortString enabled6 = do listenAddr = case if enabled6 then x6s++x4s else x4s of AddrInfo { addrAddress = listenAddr } : _ -> listenAddr - _ -> SockAddrInet6 (parsePort listenPortString) 0 iN6ADDR_ANY 0 + _ -> if enabled6 + then SockAddrInet6 (parsePort listenPortString) 0 iN6ADDR_ANY 0 + else SockAddrInet (parsePort listenPortString) iNADDR_ANY where parsePort s = fromMaybe 0 $ readMaybe s return listenAddr -- cgit v1.2.3