equal
deleted
inserted
replaced
390 lobbyNicks = Prelude.map nick $ Prelude.filter logonPassed $ elems clients |
390 lobbyNicks = Prelude.map nick $ Prelude.filter logonPassed $ elems clients |
391 answerLobbyNicks = [AnswerThisClient ("LOBBY:JOINED": lobbyNicks) | not $ Prelude.null lobbyNicks] |
391 answerLobbyNicks = [AnswerThisClient ("LOBBY:JOINED": lobbyNicks) | not $ Prelude.null lobbyNicks] |
392 |
392 |
393 |
393 |
394 processAction (clID, serverInfo, clients, rooms) (KickClient kickID) = do |
394 processAction (clID, serverInfo, clients, rooms) (KickClient kickID) = do |
395 let client = clients ! clID |
395 let client = clients ! kickID |
396 currentTime <- getCurrentTime |
396 currentTime <- getCurrentTime |
397 liftM2 replaceID (return clID) (processAction (kickID, serverInfo{lastLogins = (host client, (addUTCTime 60 $ currentTime, "60 seconds ban")) : lastLogins serverInfo}, clients, rooms) $ ByeClient "Kicked") |
397 liftM2 replaceID (return clID) (processAction (kickID, serverInfo{lastLogins = (host client, (addUTCTime 60 $ currentTime, "60 seconds ban")) : lastLogins serverInfo}, clients, rooms) $ ByeClient "Kicked") |
398 |
398 |
399 |
399 |
400 processAction (clID, serverInfo, clients, rooms) (BanClient banNick) = |
400 processAction (clID, serverInfo, clients, rooms) (BanClient banNick) = |