--- a/gameServer/HWProtoLobbyState.hs Thu Oct 04 14:18:38 2018 +0200
+++ b/gameServer/HWProtoLobbyState.hs Thu Oct 04 14:36:42 2018 +0200
@@ -226,4 +226,4 @@
handleCmd_lobby ["STATS"] = serverAdminOnly $
return [Stats]
-handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"]
+handleCmd_lobby (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in lobby)"]
--- a/gameServer/HWProtoNEState.hs Thu Oct 04 14:18:38 2018 +0200
+++ b/gameServer/HWProtoNEState.hs Thu Oct 04 14:36:42 2018 +0200
@@ -101,4 +101,4 @@
parsedProto = readInt_ protoNum
#endif
-handleCmd_NotEntered _ = return [ProtocolError "Incorrect command (state: not entered)"]
+handleCmd_NotEntered (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: not entered)"]