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

csv: update some parse errors which weren't in human format

Browse Source 
cf
https://www.reddit.com/r/plaintextaccounting/comments/axekse/hledger_how_to_create_curved_brackets_with_rule/
This commit is contained in:
Simon Michael 2019-03-05 06:23:11 -08:00
parent 216dad990d
commit c5df73910f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -690,7 +690,7 @@ transactionFromCsvRecord sourcepos rules record = t
where where
statuserror err = error' $ unlines statuserror err = error' $ unlines
["error: could not parse \""++str++"\" as a cleared status (should be *, ! or empty)" ["error: could not parse \""++str++"\" as a cleared status (should be *, ! or empty)"
,"the parse error is: "++show err ,"the parse error is: "++customErrorBundlePretty err
] ]
code = maybe "" render $ mfieldtemplate "code" code = maybe "" render $ mfieldtemplate "code"
description = maybe "" render $ mfieldtemplate "description" description = maybe "" render $ mfieldtemplate "description"
@ -705,7 +705,7 @@ transactionFromCsvRecord sourcepos rules record = t
,"the amount rule is: "++(fromMaybe "" $ mfieldtemplate "amount") ,"the amount rule is: "++(fromMaybe "" $ mfieldtemplate "amount")
,"the currency rule is: "++(fromMaybe "unspecified" $ mfieldtemplate "currency") ,"the currency rule is: "++(fromMaybe "unspecified" $ mfieldtemplate "currency")
,"the default-currency is: "++fromMaybe "unspecified" mdefaultcurrency ,"the default-currency is: "++fromMaybe "unspecified" mdefaultcurrency
,"the parse error is: "++show err ,"the parse error is: "++customErrorBundlePretty err
,"you may need to " ,"you may need to "
++"change your amount or currency rules, " ++"change your amount or currency rules, "
++"or "++maybe "add a" (const "change your") mskip++" skip rule" ++"or "++maybe "add a" (const "change your") mskip++" skip rule"
@ -734,7 +734,7 @@ transactionFromCsvRecord sourcepos rules record = t
,"the balance rule is: "++(fromMaybe "" $ mfieldtemplate "balance") ,"the balance rule is: "++(fromMaybe "" $ mfieldtemplate "balance")
,"the currency rule is: "++(fromMaybe "unspecified" $ mfieldtemplate "currency") ,"the currency rule is: "++(fromMaybe "unspecified" $ mfieldtemplate "currency")
,"the default-currency is: "++fromMaybe "unspecified" mdefaultcurrency ,"the default-currency is: "++fromMaybe "unspecified" mdefaultcurrency
,"the parse error is: "++show err ,"the parse error is: "++customErrorBundlePretty err
] ]
-- build the transaction -- build the transaction