equal
deleted
inserted
replaced
555 clHost <- client's host |
555 clHost <- client's host |
556 currentTime <- io getCurrentTime |
556 currentTime <- io getCurrentTime |
557 mapM_ processAction [ |
557 mapM_ processAction [ |
558 AddIP2Bans clHost (loc "60 seconds cooldown after kick") (addUTCTime 60 currentTime) |
558 AddIP2Bans clHost (loc "60 seconds cooldown after kick") (addUTCTime 60 currentTime) |
559 , ModifyClient (\c -> c{isKickedFromServer = True}) |
559 , ModifyClient (\c -> c{isKickedFromServer = True}) |
560 , ByeClient "Kicked" |
560 , ByeClient $ loc "Kicked" |
561 ] |
561 ] |
562 |
562 |
563 |
563 |
564 processAction (BanClient seconds reason banId) = do |
564 processAction (BanClient seconds reason banId) = do |
565 modify (\s -> s{clientIndex = Just banId}) |
565 modify (\s -> s{clientIndex = Just banId}) |