equal
deleted
inserted
replaced
486 modify (\s -> s{clientIndex = Just newClId}) |
486 modify (\s -> s{clientIndex = Just newClId}) |
487 mapM_ processAction |
487 mapM_ processAction |
488 [ |
488 [ |
489 AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server http://www.hedgewars.org/", serverVersion] |
489 AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server http://www.hedgewars.org/", serverVersion] |
490 , CheckBanned |
490 , CheckBanned |
491 --, AddIP2Bans (host cl) "Reconnected too fast" (addUTCTime 10 $ connectTime cl) |
491 , AddIP2Bans (host cl) "Reconnected too fast" (addUTCTime 10 $ connectTime cl) |
492 ] |
492 ] |
493 |
493 |
494 |
494 |
495 processAction (AddNick2Bans n reason expiring) = do |
495 processAction (AddNick2Bans n reason expiring) = do |
496 processAction $ ModifyServerInfo (\s -> s{bans = BanByNick n reason expiring : bans s}) |
496 processAction $ ModifyServerInfo (\s -> s{bans = BanByNick n reason expiring : bans s}) |