diff -r 330b0b8846cf -r d12531f09d59 gameServer/HWProtoCore.hs --- a/gameServer/HWProtoCore.hs Sat Feb 02 20:16:12 2013 +0400 +++ b/gameServer/HWProtoCore.hs Sat Feb 02 22:57:05 2013 +0400 @@ -42,6 +42,8 @@ where h ["DELEGATE", n] = handleCmd ["DELEGATE", n] h ["STATS"] = handleCmd ["STATS"] + h ["PART", msg] = handleCmd ["PART", msg] + h ["QUIT", msg] = handleCmd ["QUIT", msg] h c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c] handleCmd cmd = do