From db8b00d6e5be8046b66f69f61d91bd0b50723c4d Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 16 Oct 2008 03:27:43 +0000 Subject: [PATCH] doc update --- Ledger/Ledger.hs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs index 2291c0b65..3c6d0309c 100644 --- a/Ledger/Ledger.hs +++ b/Ledger/Ledger.hs @@ -1,8 +1,8 @@ {-| -A 'Ledger' stores, for efficiency, a 'RawLedger' plus its tree of account -names, a map from account names to 'Account's, and the display precision. -Typically it has also has had the uninteresting 'Entry's filtered out. +A 'Ledger' stores, for efficiency, a 'RawLedger' plus its tree of +account names, a map from account names to 'Account's. Typically it +also has had uninteresting 'Entry's filtered out. -} @@ -80,11 +80,6 @@ subAccounts l a = map (ledgerAccount l) subacctnames subacctnames = filter (name `isAccountNamePrefixOf`) allnames -- | 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 l = rawLedgerTransactions $ rawledger l