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

11
Commands/Print.hs
View File

@ -17,11 +17,12 @@ 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) $
filterRawLedgerPostingsByDepth depth $ ledger_txns $
filterRawLedgerTransactionsByAccount apats $ filterRawLedgerPostingsByDepth depth $
rawledger l filterRawLedgerTransactionsByAccount apats $
rawledger l
depth = depthFromOpts opts depth = depthFromOpts opts
(apats,_) = parsePatternArgs args (apats,_) = parsePatternArgs args