1 files changed, 8 insertions, 7 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 331829e7..003fcdbb 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -369,9 +369,9 @@ server = do
         let elapsed = 1000.0 * (fin_utc `diffUTCTime` utc)
             expected = fromIntegral interval
         when (retry && elapsed < expected) $ do
-            warn $ "Waiting to retry " <> bshow addr
+            debugNoise $ "Waiting to retry " <> bshow addr
             startDelay timer (round $ 1000 * (expected-elapsed))
-        warn $ "retry " <> bshow (retry,addr)
+        debugNoise $ "retry " <> bshow (retry,addr)
         when retry $ retryLoop
 
 
@@ -736,6 +736,7 @@ connFlush c =
 
 bshow e = S.pack . show $ e
 warn str = S.hPutStrLn stderr str >> hFlush stderr
+debugNoise str = warn str -- return ()
 
 
 data PingEvent = PingIdle | PingTimeOut
@@ -841,13 +842,15 @@ interruptableDelay :: IO InterruptableDelay
 interruptableDelay = do
     fmap InterruptableDelay
        $ atomically newEmptyTMVar
+
 startDelay :: InterruptableDelay -> Microseconds -> IO ()
 startDelay d interval = do
     thread <- myThreadId
-    atomically $ putTMVar (delayThread d) thread
-    handle (\(ErrorCall _)-> warn $ "delay interrupted" ) $ do 
+    handle (\(ErrorCall _)-> do
+                debugNoise $ "delay interrupted" ) $ do 
+        atomically $ putTMVar (delayThread d) thread
         threadDelay interval
-    void . atomically $ takeTMVar (delayThread d)
+        void . atomically $ takeTMVar (delayThread d)
 
 interruptDelay :: InterruptableDelay -> IO ()
 interruptDelay d = do
@@ -855,7 +858,5 @@ interruptDelay d = do
         tryTakeTMVar (delayThread d)
     flip (maybe $ return ()) mthread $ \thread -> do
     throwTo thread (ErrorCall "Interrupted delay")
-    atomically $ do
-        putTMVar (delayThread d) thread