This commit is contained in:
Simon Michael 2008-10-17 00:57:00 +00:00
parent f40696fa47
commit 497daebd44
2 changed files with 3 additions and 3 deletions

View File

@ -1,7 +1,7 @@
{-| {-|
An 'Amount' is some quantity of money, shares, or anything else. An 'Amount' is some quantity of money, shares, or anything else.
A simple amount is a commodity, quantity pair (where commodity can be anything): A simple amount is a commodity, quantity pair:
@ @
$1 $1

View File

@ -72,8 +72,8 @@ filterRawLedgerEntriesByClearedStatus False l = l
filterRawLedgerEntriesByClearedStatus True (RawLedger ms ps es f) = filterRawLedgerEntriesByClearedStatus True (RawLedger ms ps es f) =
RawLedger ms ps (filter estatus es) f RawLedger ms ps (filter estatus es) f
-- | Strip out any (virtual transactions), if the flag is true, otherwise -- | Strip out any virtual transactions, if the flag is true, otherwise do
-- do no filtering. -- no filtering.
filterRawLedgerTransactionsByRealness :: Bool -> RawLedger -> RawLedger filterRawLedgerTransactionsByRealness :: Bool -> RawLedger -> RawLedger
filterRawLedgerTransactionsByRealness False l = l filterRawLedgerTransactionsByRealness False l = l
filterRawLedgerTransactionsByRealness True (RawLedger ms ps es f) = filterRawLedgerTransactionsByRealness True (RawLedger ms ps es f) =