Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Show which file has failed
authorunc0rr
Wed, 22 Jan 2014 14:50:50 +0400
changeset 10051 cc6f62d7aea2
parent 10050 9616052bd333
child 10052 6748866c94ee
Show which file has failed
gameServer/OfficialServer/GameReplayStore.hs file | annotate | diff | comparison | revisions
gameServer/hedgewars-server.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/OfficialServer/GameReplayStore.hs	Wed Jan 22 14:45:33 2014 +0400
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Wed Jan 22 14:50:50 2014 +0400
@@ -12,6 +12,7 @@
 import Data.List
 import qualified Data.ByteString as B
 import System.Directory
+import Control.DeepSeq
 ---------------
 import CoreTypes
 import EngineInteraction
@@ -55,7 +56,7 @@
             (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName
             return $ (
                 Just (CheckInfo fileName teams)
-                , replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs)
+                , let d = replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs) in d `deepseq` d
                 )
 
 moveFailedRecord :: String -> IO ()
--- a/gameServer/hedgewars-server.hs	Wed Jan 22 14:45:33 2014 +0400
+++ b/gameServer/hedgewars-server.hs	Wed Jan 22 14:50:50 2014 +0400
@@ -24,6 +24,7 @@
 setupLoggers = do
     updateGlobalLogger "Clients" (setLevel NOTICE)
     updateGlobalLogger "Core" (setLevel NOTICE)
+    updateGlobalLogger "REPLAYS" (setLevel NOTICE)
 
 
 server :: ServerInfo -> IO ()
hedgewars