gameServer/Actions.hs
changeset 5003 db4726bf9205
parent 4999 a3a09b107652
child 5005 d7bddb280f4f
--- 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