Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/Actions.hs
branch0.9.15
changeset 4771 6bb64d38003e
parent 4762 59eb6319c950
child 4904 0eab727d4717 
--- 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")
hedgewars