Don't translate greeting message
authorWuzzy <Wuzzy2@mail.ru>
Sat, 25 Aug 2018 22:02:21 +0200
changeset 13702 dc06ef77a73a
parent 13701 bb68f721e666
child 13703 2df519242d41
Don't translate greeting message
gameServer/Consts.hs
gameServer/HWProtoLobbyState.hs
--- a/gameServer/Consts.hs	Sat Aug 25 21:36:15 2018 +0200
+++ b/gameServer/Consts.hs	Sat Aug 25 22:02:21 2018 +0200
@@ -53,3 +53,7 @@
 -- For /global command
 nickGlobal :: B.ByteString
 nickGlobal = "(global notice)"
+
+-- For greeting message added with /greeting command
+nickGreeting :: B.ByteString
+nickGreeting = "(greeting)"
--- a/gameServer/HWProtoLobbyState.hs	Sat Aug 25 21:36:15 2018 +0200
+++ b/gameServer/HWProtoLobbyState.hs	Sat Aug 25 22:02:21 2018 +0200
@@ -26,6 +26,7 @@
 --------------------------------------
 import CoreTypes
 import Utils
+import Consts
 import HandlerUtils
 import RoomsAndClients
 import EngineInteraction
@@ -117,7 +118,7 @@
             ++ answerFullConfig cl jRoom
             ++ answerTeams cl jRoom
             ++ watchRound cl jRoom chans
-            ++ [AnswerClients [sendChan cl] ["CHAT", "[greeting]", greeting jRoom] | greeting jRoom /= ""]
+            ++ [AnswerClients [sendChan cl] ["CHAT", nickGreeting, greeting jRoom] | greeting jRoom /= ""]
             ++ map (\t -> AnswerClients chans ["EM", toEngineMsg $ 'G' `B.cons` t]) clTeamsNames
             ++ [AnswerClients [sendChan cl] ["EM", toEngineMsg "I"] | isPaused `fmap` gameInfo jRoom == Just True]