diff options
Diffstat (limited to 'Presence/Server.hs')
-rw-r--r-- | Presence/Server.hs | 2 |
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 | ||