Oops
authorunc0rr
Sun, 13 Mar 2011 15:09:29 +0300
changeset 5005 d7bddb280f4f
parent 5003 db4726bf9205
child 5006 6913d677c891
Oops
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