diff options
author | Joe Crayne <joe@jerkface.net> | 2019-12-22 11:56:36 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:28:00 -0500 |
commit | 50e1debec25341ca66456ab14574361a2a994787 (patch) | |
tree | 386a5935d333f8d433226b51478b1c827abcc946 | |
parent | 74ba73f2923a3b4f49bff2333a5769386eedc5e4 (diff) |
Edited debug print.
-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 |