diff -r c6e5ed83fb83 -r a471a7bbc339 gameServer/JoinsMonitor.hs --- a/gameServer/JoinsMonitor.hs Wed Jan 29 09:17:25 2014 -0500 +++ b/gameServer/JoinsMonitor.hs Thu Jan 30 00:18:32 2014 +0400 @@ -36,7 +36,7 @@ let last30sec = length $ takeWhile (< 30) lastJoins let last2min = length $ takeWhile (< 120) lastJoins let last10min = length $ takeWhile (< 600) lastJoins - let pass = last30sec < 2 && last2min < 4 && last10min < 6 + let pass = last30sec < 2 && last2min < 3 && last10min < 5 when pass $ writeIORef ref $ Map.alter (Just . (:) time . fromMaybe []) host m