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

doc update

Browse Source
This commit is contained in:
Simon Michael 2008-10-16 03:27:43 +00:00
parent cc81700d2a
commit db8b00d6e5
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Ledger/Ledger.hs
View File

@ -1,8 +1,8 @@
{-| {-|
A 'Ledger' stores, for efficiency, a 'RawLedger' plus its tree of account A 'Ledger' stores, for efficiency, a 'RawLedger' plus its tree of
names, a map from account names to 'Account's, and the display precision. account names, a map from account names to 'Account's. Typically it
Typically it has also has had the uninteresting 'Entry's filtered out. also has had uninteresting 'Entry's filtered out.
-} -}
@ -80,11 +80,6 @@ subAccounts l a = map (ledgerAccount l) subacctnames
subacctnames = filter (name `isAccountNamePrefixOf`) allnames subacctnames = filter (name `isAccountNamePrefixOf`) allnames
-- | List a ledger's transactions. -- | List a ledger's transactions.
--
-- NB this sets the amount precisions to that of the highest-precision
-- amount, to help with report output. It should perhaps be done in the
-- display functions, but those are far removed from the ledger. Keep in
-- mind if doing more arithmetic with these.
ledgerTransactions :: Ledger -> [Transaction] ledgerTransactions :: Ledger -> [Transaction]
ledgerTransactions l = rawLedgerTransactions $ rawledger l ledgerTransactions l = rawLedgerTransactions $ rawledger l