drop little-used clashing Ledger accessors
This commit is contained in:
parent
549bae945c
commit
c010448935
@ -101,45 +101,6 @@ ledgerAccountTreeAt l acct = subtreeat acct $ ledgerAccountTree 9999 l
|
|||||||
ledgerDateSpan :: Ledger -> DateSpan
|
ledgerDateSpan :: Ledger -> DateSpan
|
||||||
ledgerDateSpan = postingsDateSpan . ledgerPostings
|
ledgerDateSpan = postingsDateSpan . ledgerPostings
|
||||||
|
|
||||||
-- | Convenience aliases.
|
|
||||||
accountnames :: Ledger -> [AccountName]
|
|
||||||
accountnames = ledgerAccountNames
|
|
||||||
|
|
||||||
account :: Ledger -> AccountName -> Account
|
|
||||||
account = ledgerAccount
|
|
||||||
|
|
||||||
accounts :: Ledger -> [Account]
|
|
||||||
accounts = ledgerAccounts
|
|
||||||
|
|
||||||
topaccounts :: Ledger -> [Account]
|
|
||||||
topaccounts = ledgerTopAccounts
|
|
||||||
|
|
||||||
accountsmatching :: [String] -> Ledger -> [Account]
|
|
||||||
accountsmatching = ledgerAccountsMatching
|
|
||||||
|
|
||||||
subaccounts :: Ledger -> Account -> [Account]
|
|
||||||
subaccounts = ledgerSubAccounts
|
|
||||||
|
|
||||||
postings :: Ledger -> [Posting]
|
|
||||||
postings = ledgerPostings
|
|
||||||
|
|
||||||
commodities :: Ledger -> Map String Commodity
|
|
||||||
commodities = journalCanonicalCommodities . journal
|
|
||||||
|
|
||||||
accounttree :: Int -> Ledger -> Tree Account
|
|
||||||
accounttree = ledgerAccountTree
|
|
||||||
|
|
||||||
accounttreeat :: Ledger -> Account -> Maybe (Tree Account)
|
|
||||||
accounttreeat = ledgerAccountTreeAt
|
|
||||||
|
|
||||||
-- datespan :: Ledger -> DateSpan
|
|
||||||
-- datespan = ledgerDateSpan
|
|
||||||
|
|
||||||
rawdatespan :: Ledger -> DateSpan
|
|
||||||
rawdatespan = journalDateSpan . journal
|
|
||||||
|
|
||||||
ledgeramounts :: Ledger -> [MixedAmount]
|
|
||||||
ledgeramounts = journalAmounts . journal
|
|
||||||
|
|
||||||
tests_Hledger_Data_Ledger = TestList
|
tests_Hledger_Data_Ledger = TestList
|
||||||
[
|
[
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user