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
changeset 4909 dc6482438674
parent 4907 8bf14795a528
child 4914 5c33bb53c1e5 
--- a/gameServer/Actions.hs	Wed Feb 02 22:14:00 2011 +0300
+++ b/gameServer/Actions.hs	Wed Feb 02 22:19:10 2011 +0300
@@ -366,7 +366,10 @@
     clHost <- client's host
     currentTime <- io $ getCurrentTime
     let msg = "Ban for " `B.append` (B.pack . show $ seconds) `B.append` "seconds (" `B.append` msg` B.append` ")"
-    processAction $ ModifyServerInfo (\s -> s{lastLogins = (clHost, (addUTCTime seconds $ currentTime, msg)) : lastLogins s})
+    mapM_ processAction [
+        ModifyServerInfo (\s -> s{lastLogins = (clHost, (addUTCTime seconds $ currentTime, msg)) : lastLogins s})
+        , KickClient banId
+        ]
 
 
 processAction (KickRoomClient kickId) = do
hedgewars