# HG changeset patch
# User unc0rr
# Date 1360775595 -14400
# Node ID fb8d914e76d8e1fe1585e43ff33ce5de7d94b3d3
# Parent  9f70e6f7fb635fdaf19409c4a3ceb6f307e00b0b
Fix order of messages

diff -r 9f70e6f7fb63 -r fb8d914e76d8 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)