diff -r 3e6cb7d80986 -r 4a7ce724357f gameServer/OfficialServer/GameReplayStore.hs --- a/gameServer/OfficialServer/GameReplayStore.hs Tue Jan 28 09:09:31 2014 -0500 +++ b/gameServer/OfficialServer/GameReplayStore.hs Tue Jan 28 22:29:21 2014 +0400 @@ -52,7 +52,7 @@ where loadFile :: String -> IO (Maybe CheckInfo, [B.ByteString]) loadFile fileName = E.handle (\(e :: SomeException) -> - warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return (Nothing, [])) $ do + warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return (Just $ CheckInfo fileName [], [])) $ do (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName return $ ( Just (CheckInfo fileName teams)