equal
deleted
inserted
replaced
54 Just (CheckInfo fileName teams) |
54 Just (CheckInfo fileName teams) |
55 , replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs) |
55 , replayToDemo teams (Map.fromList params1) (Map.fromList params2) (reverse roundMsgs) |
56 ) |
56 ) |
57 |
57 |
58 moveFailedRecord :: String -> IO () |
58 moveFailedRecord :: String -> IO () |
59 moveFailedRecord fn = renameFile fn ("failed/" ++ drop 8 fn) |
59 moveFailedRecord fn = E.handle (\(e :: SomeException) -> warningM "REPLAYS" $ show e) $ |
|
60 renameFile fn ("failed/" ++ drop 8 fn) |
60 |
61 |
61 |
62 |
62 moveCheckedRecord :: String -> IO () |
63 moveCheckedRecord :: String -> IO () |
63 moveCheckedRecord fn = renameFile fn ("checked/" ++ drop 8 fn) |
64 moveCheckedRecord fn = E.handle (\(e :: SomeException) -> warningM "REPLAYS" $ show e) $ |
|
65 renameFile fn ("checked/" ++ drop 8 fn) |