equal
deleted
inserted
replaced
148 cl <- thisClient |
148 cl <- thisClient |
149 kickId <- clientByNick kickNick |
149 kickId <- clientByNick kickNick |
150 return [KickClient $ fromJust kickId | isAdministrator cl && isJust kickId && fromJust kickId /= ci] |
150 return [KickClient $ fromJust kickId | isAdministrator cl && isJust kickId && fromJust kickId /= ci] |
151 |
151 |
152 |
152 |
153 handleCmd_lobby ["BAN", banNick, reason] = do |
153 handleCmd_lobby ["BAN", banNick, reason, duration] = do |
154 (ci, _) <- ask |
154 (ci, _) <- ask |
155 cl <- thisClient |
155 cl <- thisClient |
156 banId <- clientByNick banNick |
156 banId <- clientByNick banNick |
157 return [BanClient 60 reason (fromJust banId) | isAdministrator cl && isJust banId && fromJust banId /= ci] |
157 return [BanClient (readInt_ duration) reason (fromJust banId) | isAdministrator cl && isJust banId && fromJust banId /= ci] |
158 |
158 |
159 handleCmd_lobby ["BANIP", ip, reason, duration] = do |
159 handleCmd_lobby ["BANIP", ip, reason, duration] = do |
160 cl <- thisClient |
160 cl <- thisClient |
161 return [BanIP ip (readInt_ duration) reason | isAdministrator cl] |
161 return [BanIP ip (readInt_ duration) reason | isAdministrator cl] |
162 |
162 |