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

cacheLedger cleanup

Browse Source
This commit is contained in:
Simon Michael 2009-03-17 19:50:43 +00:00
parent fc928ba278
commit f7b2e62bcb
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Ledger/Ledger.hs
View File

@ -33,10 +33,9 @@ instance Show Ledger where
cacheLedger :: [String] -> RawLedger -> Ledger cacheLedger :: [String] -> RawLedger -> Ledger
cacheLedger apats l = Ledger{rawledgertext="",rawledger=l,accountnametree=ant,accountmap=acctmap} cacheLedger apats l = Ledger{rawledgertext="",rawledger=l,accountnametree=ant,accountmap=acctmap}
where where
(ant,txnsof,_,inclbalof) = groupTransactions $ filtertxns apats $ rawLedgerTransactions l
acctmap = Map.fromList [(a, mkacct a) | a <- flatten ant] acctmap = Map.fromList [(a, mkacct a) | a <- flatten ant]
mkacct a = Account a (txnsof a) (inclbalof a) where mkacct a = Account a (txnsof a) (inclbalof a)
ts = filtertxns apats $ rawLedgerTransactions l
(ant,txnsof,_,inclbalof) = groupTransactions ts
-- | Given a list of transactions, return an account name tree and three -- | Given a list of transactions, return an account name tree and three
-- query functions that fetch transactions, balance, and -- query functions that fetch transactions, balance, and