gameServer/OfficialServer/GameReplayStore.hs
changeset 8502 fb8d914e76d8
parent 8495 f1223400b473
child 8509 eda9f2106d8d
--- a/gameServer/OfficialServer/GameReplayStore.hs	Mon Feb 11 17:09:35 2013 -0500
+++ b/gameServer/OfficialServer/GameReplayStore.hs	Wed Feb 13 21:13:15 2013 +0400
@@ -41,4 +41,4 @@
         loadFile :: String -> IO [B.ByteString]
         loadFile fileName = E.handle (\(e :: SomeException) -> warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return []) $ do
             (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName
-            return $ replayToDemo teams (Map.fromList params1) (Map.fromList params2) roundMsgs
+            return $ replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs)