getBindAddress falls back to ipv4.

1 files changed, 3 insertions, 1 deletions

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