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

lib: balance-style -> balance-type

Browse Source
This commit is contained in:
Dmitry Astapov 2019-11-13 09:24:50 +00:00 committed by Simon Michael
parent 39bc183340
commit c4d650e6ad
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

@ -523,7 +523,7 @@ directives =
,"newest-first" ,"newest-first"
-- ,"base-account" -- ,"base-account"
-- ,"base-currency" -- ,"base-currency"
, "balance-style" , "balance-type"
] ]
directivevalp :: CsvRulesParser String directivevalp :: CsvRulesParser String
@ -823,14 +823,14 @@ transactionFromCsvRecord sourcepos rules record = t
} }
defaultAssertion = defaultAssertion =
case mdirective "balance-style" of case mdirective "balance-type" of
Nothing -> assertion Nothing -> assertion
Just "=" -> assertion Just "=" -> assertion
Just "==" -> assertion {batotal=True} Just "==" -> assertion {batotal=True}
Just "=*" -> assertion {bainclusive=True} Just "=*" -> assertion {bainclusive=True}
Just "==*" -> assertion{batotal=True, bainclusive=True} Just "==*" -> assertion{batotal=True, bainclusive=True}
Just x -> error' $ unlines Just x -> error' $ unlines
[ "balance-style \"" ++ x ++"\" is invalid. Use =, ==, =* or ==*." [ "balance-type \"" ++ x ++"\" is invalid. Use =, ==, =* or ==*."
, showRecord record , showRecord record
, showRules rules record , showRules rules record
] ]