Fix order of messages
authorunc0rr
Wed, 13 Feb 2013 21:13:15 +0400
changeset 8502 fb8d914e76d8
parent 8501 9f70e6f7fb63
child 8503 e60c84b42f4d
Fix order of messages
gameServer/OfficialServer/GameReplayStore.hs
--- 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)