diff -r d3a2fe9f04f2 -r 003fc694c0c3 gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Fri Jan 31 23:36:02 2014 +0400 +++ b/gameServer/HWProtoInRoomState.hs Sun Feb 02 00:37:00 2014 +0400 @@ -55,8 +55,8 @@ s <- roomOthersChans return [AnswerClients s ["CHAT", n, msg]] -handleCmd_inRoom ["PART"] = return [MoveToLobby "part", RegisterEvent RoomJoin] -handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg, RegisterEvent RoomJoin] +handleCmd_inRoom ["PART"] = return [MoveToLobby "part"] +handleCmd_inRoom ["PART", msg] = return [MoveToLobby $ "part: " `B.append` msg] handleCmd_inRoom ("CFG" : paramName : paramStrs)