equal
deleted
inserted
replaced
30 | RemoveRoom |
30 | RemoveRoom |
31 | UnreadyRoomClients |
31 | UnreadyRoomClients |
32 | JoinLobby |
32 | JoinLobby |
33 | ProtocolError B.ByteString |
33 | ProtocolError B.ByteString |
34 | Warning B.ByteString |
34 | Warning B.ByteString |
|
35 | NoticeMessage Notice |
35 | ByeClient B.ByteString |
36 | ByeClient B.ByteString |
36 | KickClient ClientIndex |
37 | KickClient ClientIndex |
37 | KickRoomClient ClientIndex |
38 | KickRoomClient ClientIndex |
38 | BanClient B.ByteString -- nick |
39 | BanClient B.ByteString -- nick |
39 | RemoveClientTeams ClientIndex |
40 | RemoveClientTeams ClientIndex |
100 |
101 |
101 |
102 |
102 processAction (Warning msg) = do |
103 processAction (Warning msg) = do |
103 chan <- client's sendChan |
104 chan <- client's sendChan |
104 processAction $ AnswerClients [chan] ["WARNING", msg] |
105 processAction $ AnswerClients [chan] ["WARNING", msg] |
|
106 |
|
107 processAction (NoticeMessage n) = do |
|
108 chan <- client's sendChan |
|
109 processAction $ AnswerClients [chan] ["NOTICE", B.pack . show . fromEnum $ n] |
105 |
110 |
106 processAction (ByeClient msg) = do |
111 processAction (ByeClient msg) = do |
107 (Just ci) <- gets clientIndex |
112 (Just ci) <- gets clientIndex |
108 rnc <- gets roomsClients |
113 rnc <- gets roomsClients |
109 ri <- clientRoomA |
114 ri <- clientRoomA |