fix:import: don't erase .latest files when there are no new txns [#2444]
Fixes a regression caused by the #2125 fix.
This commit is contained in:
parent
e2bb24e902
commit
8951e11584
@ -419,8 +419,10 @@ latestDates = {-# HLINT ignore "Avoid reverse" #-}
|
||||
|
||||
-- | Save the given latest date(s) seen in the given data FILE,
|
||||
-- in a hidden file named .latest.FILE, creating it if needed.
|
||||
-- Unless no latest dates are provided, in which case do nothing.
|
||||
saveLatestDates :: LatestDates -> FilePath -> IO ()
|
||||
saveLatestDates dates f = T.writeFile (latestDatesFileFor f) $ T.unlines $ map showDate dates
|
||||
saveLatestDates dates f = when (not $ null dates) $
|
||||
T.writeFile (latestDatesFileFor f) $ T.unlines $ map showDate dates
|
||||
|
||||
-- | Save each file's latest dates.
|
||||
saveLatestDatesForFiles :: [LatestDatesForFile] -> IO ()
|
||||
|
||||
Loading…
Reference in New Issue
Block a user