276     chans <- roomSameClanChans

   276     chans <- roomSameClanChans

   277     return [AnswerClients chans ["EM", engineMsg cl]]

   277     return [AnswerClients chans ["EM", engineMsg cl]]

   278     where

   278     where

   279         engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "(team): ", msg, "\x20\x20"]

   279         engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "(team): ", msg, "\x20\x20"]

   280 

   280 

   281 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"]

   283 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"]

   282 

   284 

   283 handleCmd_inRoom [] = return [ProtocolError "Empty command (state: in room)"]

   285 handleCmd_inRoom [] = return [ProtocolError "Empty command (state: in room)"]