print: show all amounts for clarity (don't elide the final balancing amount)
This commit is contained in:
parent
eb0d7ea06c
commit
53e9aec63f
@ -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 $
|
||||
|
||||
Loading…
Reference in New Issue
Block a user