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

;csv: cleanup

Browse Source
This commit is contained in:
Simon Michael 2020-03-17 17:55:32 -07:00
parent 36177e48fb
commit 4e7a893efc
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -759,13 +759,6 @@ showRules rules record =
csvRule :: CsvRules -> DirectiveName -> Maybe FieldTemplate csvRule :: CsvRules -> DirectiveName -> Maybe FieldTemplate
csvRule rules = (`getDirective` rules) csvRule rules = (`getDirective` rules)
-- | Look up the final value assigned to a csv rule by rule keyword, taking
-- into account the current record and conditional rules.
-- Generally rules with keywords ("directives") don't have interpolated
-- values, but for now it's possible.
-- csvRuleValue :: CsvRules -> CsvRecord -> DirectiveName -> Maybe String
-- csvRuleValue rules record = fmap (renderTemplate rules record) . csvRule rules
-- | Look up the value template assigned to a hledger field by field -- | Look up the value template assigned to a hledger field by field
-- list/field assignment rules, taking into account the current record and -- list/field assignment rules, taking into account the current record and
-- conditional rules. -- conditional rules.
@ -777,8 +770,6 @@ hledgerField = getEffectiveAssignment
hledgerFieldValue :: CsvRules -> CsvRecord -> HledgerFieldName -> Maybe String hledgerFieldValue :: CsvRules -> CsvRecord -> HledgerFieldName -> Maybe String
hledgerFieldValue rules record = fmap (renderTemplate rules record) . hledgerField rules record hledgerFieldValue rules record = fmap (renderTemplate rules record) . hledgerField rules record
-- s `orIfNull` def = if null s then def else s
transactionFromCsvRecord :: SourcePos -> CsvRules -> CsvRecord -> Transaction transactionFromCsvRecord :: SourcePos -> CsvRules -> CsvRecord -> Transaction
transactionFromCsvRecord sourcepos rules record = t transactionFromCsvRecord sourcepos rules record = t
where where
@ -867,15 +858,6 @@ transactionFromCsvRecord sourcepos rules record = t
,tpostings = ps ,tpostings = ps
} }
-- -- | Given CSV rules and a CSV record, generate the corresponding transaction's
-- -- Nth posting, if sufficient fields have been assigned for it.
-- -- N is provided as a string.
-- -- The names of the required fields are provided, allowing more flexibility.
-- -- The transaction which will contain this posting is also provided,
-- -- so we can build the usual transaction<->posting cyclic reference.
-- mkPosting :: CsvRules -> CsvRecord -> String -> Transaction -> Maybe (Posting, Bool)
-- mkPosting rules record n t =
-- | Figure out the amount specified for posting N, if any. -- | Figure out the amount specified for posting N, if any.
-- Looks for a non-zero amount assigned to one of "amountN", "amountN-in", "amountN-out". -- Looks for a non-zero amount assigned to one of "amountN", "amountN-in", "amountN-out".
-- Postings 1 or 2 also look at "amount", "amount-in", "amount-out". -- Postings 1 or 2 also look at "amount", "amount-in", "amount-out".