From 8951e115849fc581f3cb1f9eac0b0f696a06d389 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 25 Aug 2025 19:24:56 +0100 Subject: [PATCH] fix:import: don't erase .latest files when there are no new txns [#2444] Fixes a regression caused by the #2125 fix. --- hledger-lib/Hledger/Read.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read.hs b/hledger-lib/Hledger/Read.hs index a38bd3adf..8ba8bbc32 100644 --- a/hledger-lib/Hledger/Read.hs +++ b/hledger-lib/Hledger/Read.hs @@ -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 ()