diff -r 312f4dd41753 -r db4726bf9205 gameServer/Actions.hs --- a/gameServer/Actions.hs Sat Mar 12 22:55:25 2011 +0300 +++ b/gameServer/Actions.hs Sun Mar 13 15:09:04 2011 +0300 @@ -405,7 +405,7 @@ if isJust info then mapM_ processAction [ModifyServerInfo (\s -> s{lastLogins = newLogins}), ByeClient (snd . fromJust $ info)] else - processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 10 $ connectTime cl, "Reconnected too fast")) : newLogins}) + processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 0 $ connectTime cl, "Reconnected too fast")) : newLogins}) processAction PingAll = do