diff options
Diffstat (limited to 'network-addr')
-rw-r--r-- | network-addr/src/Network/Address.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/network-addr/src/Network/Address.hs b/network-addr/src/Network/Address.hs index 2741b6dd..9cfbbb40 100644 --- a/network-addr/src/Network/Address.hs +++ b/network-addr/src/Network/Address.hs | |||
@@ -1211,7 +1211,7 @@ getBindAddress bindspec enabled6 = do | |||
1211 | then SockAddrInet6 (parsePort listenPortString) 0 (0,0,0,0){-iN6ADDR_ANY-} 0 | 1211 | then SockAddrInet6 (parsePort listenPortString) 0 (0,0,0,0){-iN6ADDR_ANY-} 0 |
1212 | else SockAddrInet (parsePort listenPortString) 0{-iNADDR_ANY-} | 1212 | else SockAddrInet (parsePort listenPortString) 0{-iNADDR_ANY-} |
1213 | where parsePort s = fromMaybe 0 $ readMaybe s | 1213 | where parsePort s = fromMaybe 0 $ readMaybe s |
1214 | dput XMisc $ "Listening on " ++ show listenAddr | 1214 | dput XMisc $ "Selected bind addresss " ++ show listenAddr ++ " (spec = " ++ show bindspec ++ ")" |
1215 | return listenAddr | 1215 | return listenAddr |
1216 | 1216 | ||
1217 | -- | True if the argument is an IPv4-mapped address with prefix ::FFFF:0:0/96 | 1217 | -- | True if the argument is an IPv4-mapped address with prefix ::FFFF:0:0/96 |