# HG changeset patch
# User unc0rr
# Date 1452704095 -10800
# Node ID 6a5bdf930edf0de4eb4c0e2df00bf68aa6fec580
# Parent  a4ad8a9e0f69828fe5099b66ee40ad3c15f74566
Add some delay to checker

diff -r a4ad8a9e0f69 -r 6a5bdf930edf 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