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
showLedgerTransactions :: [Opt] -> [String] -> Ledger -> String
showLedgerTransactions opts args l = concatMap showLedgerTransaction $ filteredtxns
showLedgerTransactions opts args l = concatMap showLedgerTransaction txns
where
filteredtxns = ledger_txns $
filterRawLedgerPostingsByDepth depth $
filterRawLedgerTransactionsByAccount apats $
rawledger l
txns = sortBy (comparing ltdate) $
ledger_txns $
filterRawLedgerPostingsByDepth depth $
filterRawLedgerTransactionsByAccount apats $
rawledger l
depth = depthFromOpts opts
(apats,_) = parsePatternArgs args