equal
deleted
inserted
replaced
202 [AnswerSameClan ["EM", engineMsg]] |
202 [AnswerSameClan ["EM", engineMsg]] |
203 else |
203 else |
204 [] |
204 [] |
205 where |
205 where |
206 client = clients IntMap.! clID |
206 client = clients IntMap.! clID |
207 engineMsg = toEngineMsg $ 'b' : (nick client ++ "(team): " ++ decodedMsg ++ "\x20\x20") |
207 -- FIXME: why are those decoded* function used? |
|
208 -- it would be better to use ByteString instead of String |
|
209 engineMsg = toEngineMsg $ 'b' : (decodedNick ++ "(team): " ++ decodedMsg ++ "\x20\x20") |
208 decodedMsg = UTF8.decodeString msg |
210 decodedMsg = UTF8.decodeString msg |
|
211 decodedNick = UTF8.decodeString $ nick client |
209 |
212 |
210 handleCmd_inRoom clID _ _ _ = [ProtocolError "Incorrect command (state: in room)"] |
213 handleCmd_inRoom clID _ _ _ = [ProtocolError "Incorrect command (state: in room)"] |