equal
deleted
inserted
replaced
105 return |
105 return |
106 [ModifyServerInfo(\s -> s{isRegisteredUsersOnly = not $ isRegisteredUsersOnly s}) |
106 [ModifyServerInfo(\s -> s{isRegisteredUsersOnly = not $ isRegisteredUsersOnly s}) |
107 , AnswerClients [sendChan cl] ["CHAT", "[server]", "'Registered only' state toggled"] |
107 , AnswerClients [sendChan cl] ["CHAT", "[server]", "'Registered only' state toggled"] |
108 ] |
108 ] |
109 h "SUPER_POWER" _ = serverAdminOnly $ return [ModifyClient (\c -> c{hasSuperPower = True})] |
109 h "SUPER_POWER" _ = serverAdminOnly $ return [ModifyClient (\c -> c{hasSuperPower = True})] |
110 h c p = return [Warning $ B.concat [ loc "Unknown command:", " /", c, " ", p, "<br/>", loc "Say '/help' in chat for a list of commands" ]] |
110 h _ _ = return [Warning $ loc "Unknown command or invalid parameters. Say '/help' in chat for a list of commands." ] |
111 |
111 |
112 |
112 |
113 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
113 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
114 |
114 |
115 handleCmd_loggedin ["INFO", asknick] = do |
115 handleCmd_loggedin ["INFO", asknick] = do |