equal
deleted
inserted
replaced
97 cmdHelpRoomAdmin :: [B.ByteString] |
97 cmdHelpRoomAdmin :: [B.ByteString] |
98 cmdHelpRoomAdmin = cmdHelpRoomPlayer ++ cmdHelpHeaderAdmin ++ cmdHelpRoomOnlyAdmin ++ cmdHelpSharedAdmin |
98 cmdHelpRoomAdmin = cmdHelpRoomPlayer ++ cmdHelpHeaderAdmin ++ cmdHelpRoomOnlyAdmin ++ cmdHelpSharedAdmin |
99 |
99 |
100 -- Helper functions for chat command handler |
100 -- Helper functions for chat command handler |
101 cmdHelpActionEntry :: [ClientChan] -> B.ByteString -> Action |
101 cmdHelpActionEntry :: [ClientChan] -> B.ByteString -> Action |
102 cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", "[server]", B.concat [ " ", msg ] ] |
102 cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", "[server]", msg ] |
103 |
103 |
104 cmdHelpActionList :: [ClientChan] -> [B.ByteString] -> [Action] |
104 cmdHelpActionList :: [ClientChan] -> [B.ByteString] -> [Action] |
105 cmdHelpActionList chan list = map (cmdHelpActionEntry chan) list |
105 cmdHelpActionList chan list = map (cmdHelpActionEntry chan) list |