slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dev:import: fix debug message

Browse Source
This commit is contained in:
Simon Michael 2025-08-14 17:52:54 +01:00
parent afdeaccd75
commit 7dfe2d84e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read/RulesReader.hs
View File

@ -152,7 +152,7 @@ parse iopts rulesfile h = do
where err = error' $ "could not infer a data file for " <> rulesfile where err = error' $ "could not infer a data file for " <> rulesfile
Just glb -> do Just glb -> do
let (dir,desc) = if isFileName glb then (dldir," in download directory") else (rulesdir,"") let (dir,desc) = if isFileName glb then (dldir," in download directory") else (rulesdir,"")
globmatches <- expandGlob dir (dbg4 "source" glb) >>= sortByModTime <&> dbg4 ("matched files"<>desc<>", newest first") globmatches <- expandGlob dir (dbg4 "source" glb) >>= sortByModTime <&> dbg4 ("matched files"<>desc<>", oldest first")
case globmatches of case globmatches of
-- if the source rule matched no files, and we are reading not importing, use the most recent archive file -- if the source rule matched no files, and we are reading not importing, use the most recent archive file
[] | not importcmd -> archivesFor archivedir rulesfile <&> take 1 [] | not importcmd -> archivesFor archivedir rulesfile <&> take 1