2 files changed, 4 insertions, 3 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 24cd5bce..6c2d1b5a 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -539,7 +539,7 @@ newConnection server params conkey u h inout = do
         -}
         utc <- getCurrentTime
         let utc' = formatTime defaultTimeLocale "%s" utc
-        warn $ "ping:IDLE " <> bshow utc'
+        -- warn $ "ping:IDLE " <> bshow utc'
         atomically $ announce ((conkey,u),RequiresPing)
         handleEOF conkey u mvar newCon
 
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index b9719fa4..dd693b8c 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -24,6 +24,7 @@ module XMPPServer
     ) where
 
 import Debug.Trace
+import System.IO (hFlush,stdout)
 import Control.Monad.Trans.Resource (runResourceT)
 import Control.Monad.Trans (lift)
 import Control.Monad.IO.Class (MonadIO, liftIO)
@@ -235,10 +236,10 @@ peerKeyToResolvedName k@(PeerKey { callBackAddress=addr }) = do
 
 
 wlog :: String -> IO ()
-wlog s = putStrLn s
+wlog s = putStrLn s >> hFlush stdout
 
 wlogb :: ByteString -> IO ()
-wlogb s = Strict8.putStrLn s
+wlogb s = Strict8.putStrLn s >> hFlush stdout
 
 xmlStream :: ReadCommand -> WriteCommand -> ( Source IO XML.Event
                                             , Sink (Flush XML.Event) IO () )