equal
deleted
inserted
replaced
39 return [] |
39 return [] |
40 where |
40 where |
41 loadFile :: String -> IO [B.ByteString] |
41 loadFile :: String -> IO [B.ByteString] |
42 loadFile fileName = E.handle (\(e :: SomeException) -> warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return []) $ do |
42 loadFile fileName = E.handle (\(e :: SomeException) -> warningM "REPLAYS" ("Problems reading " ++ fileName ++ ": " ++ show e) >> return []) $ do |
43 (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName |
43 (teams, params1, params2, roundMsgs) <- liftM read $ readFile fileName |
44 return $ replayToDemo teams (Map.fromList params1) (Map.fromList params2) roundMsgs |
44 return $ replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs) |