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)