# HG changeset patch # User unc0rr # Date 1300018169 -10800 # Node ID d7bddb280f4fd5fceb4b22d328f5addf72d52b6d # Parent db4726bf9205dede7a03734d040ed09276bc8775 Oops diff -r db4726bf9205 -r d7bddb280f4f gameServer/Actions.hs --- a/gameServer/Actions.hs Sun Mar 13 15:09:04 2011 +0300 +++ b/gameServer/Actions.hs Sun Mar 13 15:09:29 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 0 $ connectTime cl, "Reconnected too fast")) : newLogins}) + processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 10 $ connectTime cl, "Reconnected too fast")) : newLogins}) processAction PingAll = do