print: show all amounts for clarity (don't elide the final balancing amount)

This commit is contained in:
Simon Michael 2009-11-25 05:37:08 +00:00
parent eb0d7ea06c
commit 53e9aec63f

View File

@ -17,7 +17,7 @@ print' :: [Opt] -> [String] -> Ledger -> IO ()
print' opts args l = putStr $ showLedgerTransactions opts args l
showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String
showLedgerTransactions opts args l = concatMap showLedgerTransaction txns
showLedgerTransactions opts args l = concatMap showLedgerTransactionUnelided txns
where
txns = sortBy (comparing ltdate) $
ledger_txns $