equal
deleted
inserted
replaced
404 modify (\s -> s{clientIndex = Just newClId}) |
404 modify (\s -> s{clientIndex = Just newClId}) |
405 mapM_ processAction |
405 mapM_ processAction |
406 [ |
406 [ |
407 AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server http://www.hedgewars.org/", serverVersion] |
407 AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server http://www.hedgewars.org/", serverVersion] |
408 , CheckBanned |
408 , CheckBanned |
409 -- , AddIP2Bans (host cl) "Reconnected too fast" (addUTCTime 10 $ connectTime cl) |
409 , AddIP2Bans (host cl) "Reconnected too fast" (addUTCTime 10 $ connectTime cl) |
410 ] |
410 ] |
411 |
411 |
412 |
412 |
413 processAction (AddNick2Bans n reason expiring) = do |
413 processAction (AddNick2Bans n reason expiring) = do |
414 processAction $ ModifyServerInfo (\s -> s{bans = BanByNick n reason expiring : bans s}) |
414 processAction $ ModifyServerInfo (\s -> s{bans = BanByNick n reason expiring : bans s}) |