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:
Simon Michael 2025-08-25 19:24:56 +01:00
parent e2bb24e902
commit 8951e11584

View File

@ -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 ()