more stdout flushing, removed noisy ping idle log message

1 files changed, 3 insertions, 2 deletions

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 () )