From 364db76d6c2ca9bc2504b0ba0752b8f6e31481be Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 5 Mar 2014 23:33:32 -0500
Subject: more stdout flushing, removed noisy ping idle log message

---
 Presence/Server.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Presence/Server.hs')

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
 
-- 
cgit v1.2.3