Add some delay to checker
authorunc0rr
Wed, 13 Jan 2016 19:54:55 +0300
changeset 11514 6a5bdf930edf
parent 11513 a4ad8a9e0f69
child 11515 64c1ea171204
Add some delay to checker
gameServer/OfficialServer/checker.hs
--- a/gameServer/OfficialServer/checker.hs	Wed Jan 13 19:38:03 2016 +0300
+++ b/gameServer/OfficialServer/checker.hs	Wed Jan 13 19:54:55 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