# HG changeset patch
# User unc0rr
# Date 1390387850 -14400
# Node ID cc6f62d7aea2fdb3c5f1633572078dc1e91efa4f
# Parent  9616052bd333ecff7b6688e96a85d28e48f8918f
Show which file has failed

diff -r 9616052bd333 -r cc6f62d7aea2 gameServer/OfficialServer/GameReplayStore.hs
--- 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 ()
diff -r 9616052bd333 -r cc6f62d7aea2 gameServer/hedgewars-server.hs
--- 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 ()