diff -r 84261c3408a6 -r 7dbf8a0c1f5d gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Mon Feb 20 20:33:26 2012 +0400 +++ b/gameServer/HWProtoInRoomState.hs Mon Feb 20 21:52:18 2012 +0400 @@ -286,4 +286,6 @@ where engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "(team): ", msg, "\x20\x20"] -handleCmd_inRoom _ = return [ProtocolError "Incorrect command (state: in room)"] +handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"] + +handleCmd_inRoom [] = return [ProtocolError "Empty command (state: in room)"]