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

type signatures

Browse Source
This commit is contained in:
Simon Michael 2008-10-12 06:10:32 +00:00
parent 220b688082
commit c07c149378
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Ledger/Ledger.hs
View File

@ -94,12 +94,15 @@ ledgerFilteredAccount :: Ledger -> AccountName -> Account
ledgerFilteredAccount l a = (filteredaccountmap l) ! a ledgerFilteredAccount l a = (filteredaccountmap l) ! a
-- | List a ledger's accounts, in tree order -- | List a ledger's accounts, in tree order
accounts :: Ledger -> [Account]
accounts l = drop 1 $ flatten $ ledgerAccountTree 9999 l accounts l = drop 1 $ flatten $ ledgerAccountTree 9999 l
-- | List a ledger's top-level accounts, in tree order -- | List a ledger's top-level accounts, in tree order
topAccounts :: Ledger -> [Account]
topAccounts l = map root $ branches $ ledgerAccountTree 9999 l topAccounts l = map root $ branches $ ledgerAccountTree 9999 l
-- | Accounts in ledger whose leafname matches the pattern, in tree order -- | Accounts in ledger whose leafname matches the pattern, in tree order
accountsMatching :: Regex -> Ledger -> [Account]
accountsMatching pat l = filter (containsRegex pat . accountLeafName . aname) $ accounts l accountsMatching pat l = filter (containsRegex pat . accountLeafName . aname) $ accounts l
-- | List a ledger account's immediate subaccounts -- | List a ledger account's immediate subaccounts