59 if not $ null msg then |
59 if not $ null msg then |
60 answerOthersRoom ["LEFT", nick, msg] |
60 answerOthersRoom ["LEFT", nick, msg] |
61 else |
61 else |
62 answerOthersRoom ["LEFT", nick] |
62 answerOthersRoom ["LEFT", nick] |
63 answerQuitLobby nick msg = |
63 answerQuitLobby nick msg = |
64 if not $ null msg then |
64 if not $ null nick then |
65 answerAll ["LOBBY:LEFT", nick, msg] |
65 if not $ null msg then |
66 else |
66 answerAll ["LOBBY:LEFT", nick, msg] |
67 answerAll ["LOBBY:LEFT", nick] |
67 else |
|
68 answerAll ["LOBBY:LEFT", nick] |
|
69 else |
|
70 [] |
68 |
71 |
69 answerJoined nick = answerSameRoom ["JOINED", nick] |
72 answerJoined nick = answerSameRoom ["JOINED", nick] |
70 answerRunGame = answerSameRoom ["RUN_GAME"] |
73 answerRunGame = answerSameRoom ["RUN_GAME"] |
71 answerIsReady nick = answerSameRoom ["READY", nick] |
74 answerIsReady nick = answerSameRoom ["READY", nick] |
72 answerNotReady nick = answerSameRoom ["NOT_READY", nick] |
75 answerNotReady nick = answerSameRoom ["NOT_READY", nick] |