1 files changed, 6 insertions, 0 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 87644946..24cd5bce 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -524,6 +524,9 @@ newConnection server params conkey u h inout = do
         let utc' = formatTime defaultTimeLocale "%s" utc
         warn $ "TIMEOUT " <> bshow utc' <> " " <> bshow (pingIdle me, pingTimeOut me)
         -}
+        utc <- getCurrentTime
+        let utc' = formatTime defaultTimeLocale "%s" utc
+        warn $ "ping:TIMEOUT " <> bshow utc'
         atomically (connClose newCon)
         eof
 
@@ -534,6 +537,9 @@ newConnection server params conkey u h inout = do
         let utc' = formatTime defaultTimeLocale "%s" utc
         warn $ "IDLE" <> bshow utc' <> " " <> bshow (pingIdle me, pingTimeOut me)
         -}
+        utc <- getCurrentTime
+        let utc' = formatTime defaultTimeLocale "%s" utc
+        warn $ "ping:IDLE " <> bshow utc'
         atomically $ announce ((conkey,u),RequiresPing)
         handleEOF conkey u mvar newCon