gameServer/OfficialServer/checker.hs
branchqmlfrontend
changeset 11544 b69f5f22a3ba
parent 11403 b894922d58cc
parent 11509 6a5bdf930edf
child 11606 99966b4a6e1e
--- a/gameServer/OfficialServer/checker.hs	Fri Jan 01 19:15:32 2016 +0300
+++ b/gameServer/OfficialServer/checker.hs	Tue Feb 09 21:11:16 2016 +0300
@@ -153,10 +153,12 @@
             CheckFailed msg -> do
                 warningM "Check" "Check failed"
                 answer ["CHECKED", "FAIL", msg]
+                threadDelay 1500000
                 answer ["READY"]
             CheckSuccess msgs -> do
                 warningM "Check" "Check succeeded"
                 answer ("CHECKED" : "OK" : msgs)
+                threadDelay 1500000
                 answer ["READY"]
     where
     answer :: [B.ByteString] -> IO ()
@@ -176,7 +178,7 @@
 
 
 main :: IO ()
-main = withSocketsDo $ do
+main = withSocketsDo . forever $ do
 #if !defined(mingw32_HOST_OS)
     installHandler sigPIPE Ignore Nothing
     installHandler sigCHLD Ignore Nothing