gameServer/OfficialServer/checker.hs
changeset 10014 56d2f2d5aad8
parent 9866 62ffe234127d
child 10017 de822cd3df3a
--- a/gameServer/OfficialServer/checker.hs	Sat Jan 18 18:20:43 2014 +0100
+++ b/gameServer/OfficialServer/checker.hs	Sun Jan 19 00:18:28 2014 +0400
@@ -148,8 +148,8 @@
     onPacket :: Chan Message -> [B.ByteString] -> IO ()
     onPacket _ ("CONNECTED":_) = do
         answer ["CHECKER", protocolNumber, l, p]
-        answer ["READY"]
     onPacket _ ["PING"] = answer ["PONG"]
+    onPacket _ ["LOGONPASSED"] = answer ["READY"]
     onPacket chan ("REPLAY":msgs) = do
         checkReplay chan msgs
         warningM "Check" "Started check"