diff -r 7025bd3c3131 -r d1c23bb73346 gameServer/HWProtoCore.hs --- a/gameServer/HWProtoCore.hs Thu Mar 13 23:25:31 2014 +0400 +++ b/gameServer/HWProtoCore.hs Fri Mar 14 00:42:04 2014 +0400 @@ -36,6 +36,8 @@ handleCmd ["CMD", parameters] = uncurry h $ extractParameters parameters where h "DELEGATE" n | not $ B.null n = handleCmd ["DELEGATE", n] + h "SAVEROOM" n | not $ B.null n = handleCmd ["SAVEROOM", n] + h "LOADROOM" n | not $ B.null n = handleCmd ["LOADROOM", n] h "SAVE" n | not $ B.null n = handleCmd ["SAVE", n] h "DELETE" n | not $ B.null n = handleCmd ["DELETE", n] h "STATS" _ = handleCmd ["STATS"] @@ -57,7 +59,7 @@ | otherwise = let (c, p) = extractParameters msg in if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] h "VOTE" msg = handleCmd ["VOTE", upperCase msg] - h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] + h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]] extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b)