bs/is/cf: recognise "debt..." as a synonym for "liabilities..."

This commit is contained in:
Simon Michael 2015-07-04 05:15:30 -07:00
parent c4e2c4e56c
commit 7a050d65c8

View File

@ -212,9 +212,9 @@ journalAssetAccountQuery :: Journal -> Query
journalAssetAccountQuery _ = Acct "^assets?(:|$)"
-- | A query for Liability accounts in this journal.
-- This is currently hard-coded to the case-insensitive regex @^liabilit(y|ies)(:|$)@.
-- This is currently hard-coded to the case-insensitive regex @^(debts?|liabilit(y|ies))(:|$)@.
journalLiabilityAccountQuery :: Journal -> Query
journalLiabilityAccountQuery _ = Acct "^liabilit(y|ies)(:|$)"
journalLiabilityAccountQuery _ = Acct "^(debts?|liabilit(y|ies))(:|$)"
-- | A query for Equity accounts in this journal.
-- This is currently hard-coded to the case-insensitive regex @^equity(:|$)@.