equal
deleted
inserted
replaced
467 processAction $ |
467 processAction $ |
468 AddIP2Bans ip msg (addUTCTime seconds currentTime) |
468 AddIP2Bans ip msg (addUTCTime seconds currentTime) |
469 |
469 |
470 processAction BanList = do |
470 processAction BanList = do |
471 ch <- client's sendChan |
471 ch <- client's sendChan |
472 bans <- gets (bans . serverInfo) |
472 bans <- gets (B.pack . unlines . map show . bans . serverInfo) |
473 processAction $ |
473 processAction $ |
474 AnswerClients [ch] ["BANLIST", B.pack $ show bans] |
474 AnswerClients [ch] ["BANLIST", bans] |
475 |
475 |
476 |
476 |
477 |
477 |
478 processAction (KickRoomClient kickId) = do |
478 processAction (KickRoomClient kickId) = do |
479 modify (\s -> s{clientIndex = Just kickId}) |
479 modify (\s -> s{clientIndex = Just kickId}) |