equal
deleted
inserted
replaced
21 |
21 |
22 import qualified Data.ByteString.Char8 as B |
22 import qualified Data.ByteString.Char8 as B |
23 |
23 |
24 import CoreTypes |
24 import CoreTypes |
25 import Utils |
25 import Utils |
|
26 import Consts |
26 |
27 |
27 -- List and documentation of chat commands |
28 -- List and documentation of chat commands |
28 |
29 |
29 cmdHelpSharedPlayer :: [B.ByteString] |
30 cmdHelpSharedPlayer :: [B.ByteString] |
30 cmdHelpSharedPlayer = [ |
31 cmdHelpSharedPlayer = [ |
97 cmdHelpRoomAdmin :: [B.ByteString] |
98 cmdHelpRoomAdmin :: [B.ByteString] |
98 cmdHelpRoomAdmin = cmdHelpRoomPlayer ++ cmdHelpHeaderAdmin ++ cmdHelpRoomOnlyAdmin ++ cmdHelpSharedAdmin |
99 cmdHelpRoomAdmin = cmdHelpRoomPlayer ++ cmdHelpHeaderAdmin ++ cmdHelpRoomOnlyAdmin ++ cmdHelpSharedAdmin |
99 |
100 |
100 -- Helper functions for chat command handler |
101 -- Helper functions for chat command handler |
101 cmdHelpActionEntry :: [ClientChan] -> B.ByteString -> Action |
102 cmdHelpActionEntry :: [ClientChan] -> B.ByteString -> Action |
102 cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", "[server]", msg ] |
103 cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", nickServer, msg ] |
103 |
104 |
104 cmdHelpActionList :: [ClientChan] -> [B.ByteString] -> [Action] |
105 cmdHelpActionList :: [ClientChan] -> [B.ByteString] -> [Action] |
105 cmdHelpActionList chan list = map (cmdHelpActionEntry chan) list |
106 cmdHelpActionList chan list = map (cmdHelpActionEntry chan) list |