From 50e1debec25341ca66456ab14574361a2a994787 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 22 Dec 2019 11:56:36 -0500
Subject: Edited debug print.

---
 network-addr/src/Network/Address.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'network-addr')

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
                   then SockAddrInet6 (parsePort listenPortString) 0 (0,0,0,0){-iN6ADDR_ANY-} 0
                   else SockAddrInet (parsePort listenPortString) 0{-iNADDR_ANY-}
                     where parsePort s = fromMaybe 0 $ readMaybe s
-    dput XMisc $ "Listening on " ++ show listenAddr
+    dput XMisc $ "Selected bind addresss " ++ show listenAddr ++ " (spec = " ++ show bindspec ++ ")"
     return listenAddr
 
 -- | True if the argument is an IPv4-mapped address with prefix ::FFFF:0:0/96
-- 
cgit v1.2.3