diff options
| author | joe <joe@jerkface.net> | 2014-03-05 23:33:32 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-03-05 23:33:32 -0500 |
| commit | 364db76d6c2ca9bc2504b0ba0752b8f6e31481be (patch) | |
| tree | 9a259c85274e664591bec031d3142e85d72a5bf0 /Presence/Server.hs | |
| parent | 64fb3004d6500e8ed3826ccf818a64895f61fdfe (diff) | |
more stdout flushing, removed noisy ping idle log message
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 | ||