summaryrefslogtreecommitdiff
path: root/Presence/Server.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/Server.hs')
-rw-r--r--Presence/Server.hs2
1 files changed, 1 insertions, 1 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
539 -} 539 -}
540 utc <- getCurrentTime 540 utc <- getCurrentTime
541 let utc' = formatTime defaultTimeLocale "%s" utc 541 let utc' = formatTime defaultTimeLocale "%s" utc
542 warn $ "ping:IDLE " <> bshow utc' 542 -- warn $ "ping:IDLE " <> bshow utc'
543 atomically $ announce ((conkey,u),RequiresPing) 543 atomically $ announce ((conkey,u),RequiresPing)
544 handleEOF conkey u mvar newCon 544 handleEOF conkey u mvar newCon
545 545