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

imp:journal: better error when attempting to include a rules file

Browse Source
This commit is contained in:
Simon Michael 2025-09-01 05:52:23 +01:00
parent efe1d11edb
commit e37caf0f27
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,7 +46,7 @@ reader sep = Reader
{rFormat = Sep sep {rFormat = Sep sep
,rExtensions = [show sep] ,rExtensions = [show sep]
,rReadFn = parse sep ,rReadFn = parse sep
,rParser = const $ fail "sorry, CSV files can't be included yet" -- PARTIAL: ,rParser = const $ fail "sorry, CSV files can't be included yet"
-- This unnecessarily shows the CSV file's first line in the error message, -- This unnecessarily shows the CSV file's first line in the error message,
-- but gives a more useful message than just calling error'. -- but gives a more useful message than just calling error'.
-- XXX Note every call to error' in Hledger.Read.* is potentially a similar problem - -- XXX Note every call to error' in Hledger.Read.* is potentially a similar problem -

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

@ -108,7 +108,7 @@ reader = Reader
{rFormat = Rules {rFormat = Rules
,rExtensions = ["rules"] ,rExtensions = ["rules"]
,rReadFn = parse ,rReadFn = parse
,rParser = error' "sorry, rules files can't be included" -- PARTIAL: ,rParser = const $ fail "sorry, rules files can't be included yet"
} }
isFileName f = takeFileName f == f isFileName f = takeFileName f == f