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