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 /network-addr | |
| parent | 74ba73f2923a3b4f49bff2333a5769386eedc5e4 (diff) | |
Edited debug print.
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 |