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

print: sort by date, like register

Browse Source
This commit is contained in:
Simon Michael 2009-07-08 00:52:54 +00:00
parent 71cc41da1a
commit eb0d7ea06c
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Commands/Print.hs
View File

@ -17,9 +17,10 @@ print' :: [Opt] -> [String] -> Ledger -> IO ()
print' opts args l = putStr $ showLedgerTransactions opts args l print' opts args l = putStr $ showLedgerTransactions opts args l
showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String
showLedgerTransactions opts args l = concatMap showLedgerTransaction $ filteredtxns showLedgerTransactions opts args l = concatMap showLedgerTransaction txns
where where
filteredtxns = ledger_txns $ txns = sortBy (comparing ltdate) $
ledger_txns $
filterRawLedgerPostingsByDepth depth $ filterRawLedgerPostingsByDepth depth $
filterRawLedgerTransactionsByAccount apats $ filterRawLedgerTransactionsByAccount apats $
rawledger l rawledger l