# HG changeset patch
# User sheepluva
# Date 1296165311 -3600
# Node ID 6bb64d38003ebb93147d831962d26cda87087325
# Parent  d00562929f28bc35ea3462b1f0dede62bfa3c2c5
how about we 60-sec-ban the _kicked user_ instead of the _admin that kicked that user_? :P

diff -r d00562929f28 -r 6bb64d38003e gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Jan 22 22:35:53 2011 +0300
+++ b/gameServer/Actions.hs	Thu Jan 27 22:55:11 2011 +0100
@@ -392,7 +392,7 @@
 
 
 processAction (clID, serverInfo, clients, rooms) (KickClient kickID) = do
-    let client = clients ! clID
+    let client = clients ! kickID
     currentTime <- getCurrentTime
     liftM2 replaceID (return clID) (processAction (kickID, serverInfo{lastLogins = (host client, (addUTCTime 60 $ currentTime, "60 seconds ban")) : lastLogins serverInfo}, clients, rooms) $ ByeClient "Kicked")