5 import Data.Word |
5 import Data.Word |
6 import Miscutils |
6 import Miscutils |
7 import Maybe (fromMaybe, fromJust) |
7 import Maybe (fromMaybe, fromJust) |
8 |
8 |
9 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] |
9 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] |
10 answerQuit = [(clientOnly, ["QUIT"])] |
10 answerQuit = [(clientOnly, ["BYE"])] |
11 answerAbandoned = [(sameRoom, ["ROOMABANDONED"])] |
11 answerAbandoned = [(sameRoom, ["BYE"])] |
12 answerQuitInform nick = [(sameRoom, ["QUIT", nick])] |
12 answerQuitInform nick = [(sameRoom, ["QUIT", nick])] |
13 answerNickChosen = [(clientOnly, ["ERROR", "The nick already chosen"])] |
13 answerNickChosen = [(clientOnly, ["ERROR", "The nick already chosen"])] |
14 answerNickChooseAnother = [(clientOnly, ["WARNING", "Choose another nick"])] |
14 answerNickChooseAnother = [(clientOnly, ["WARNING", "Choose another nick"])] |
15 answerNick nick = [(clientOnly, ["NICK", nick])] |
15 answerNick nick = [(clientOnly, ["NICK", nick])] |
16 answerProtocolKnown = [(clientOnly, ["ERROR", "Protocol number already known"])] |
16 answerProtocolKnown = [(clientOnly, ["ERROR", "Protocol number already known"])] |