ping work

1 files changed, 4 insertions, 2 deletions

diff --git a/Presence/SendMessage.hs b/Presence/SendMessage.hs
index 71b6a3bd..e7b3db33 100644
--- a/Presence/SendMessage.hs
+++ b/Presence/SendMessage.hs
@@ -53,6 +53,7 @@ import ServerC (packetSink)
 import ControlMaybe 
 import Data.Conduit (Sink,Source)
 import qualified Data.ByteString as S (ByteString)
+import qualified Data.ByteString.Lazy.Char8 as L
 import XMLToByteStrings
 import Logging
 import ByteStringOperators
@@ -125,7 +126,8 @@ sendMessage (OutgoingConnections cons interpretCommands) msg peer0 = do
                           ThreadFinished  -> died
                         )
           found
-    -- L.putStrLn $ "sendMessage ->"<++>showPeer peer<++>": "<++>bshow msg
+    if is_new then L.putStrLn $ "sendMessage NEW ->"<++>showPeer peer<++>": "<++>bshow msg
+              else L.putStrLn $ "sendMessage ->"<++>showPeer peer<++>": "<++>bshow msg
     atomically $ writeTChan (fst entry) msg
     when is_new . atomically $
         readTVar cons >>= writeTVar cons . Map.insert peer entry
@@ -163,7 +165,7 @@ connect_to_server chan peer toPeer = (>> return ()) . runMaybeT $ do
             MaybeT $ handleOutgoingToPeer toPeer (restrictSocket sock) cache chan snk
 
         liftIO $ cacheCmd retry cached
-        -- liftIO $ putStrLn $ "retrying " ++ show retry
+        liftIO $ putStrLn $ "retrying " ++ show retry
         sendmsgs
 
 connect' :: SockAddr -> Int -> IO (Maybe Socket)