simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-28 04:46:31 +03:00
Code Issues Projects Releases Wiki Activity

simplify

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 21:11:06 +00:00
parent 4679003b83
commit 18e3e4d34b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RegisterCommand.hs
View File

@ -20,7 +20,7 @@ showTransactionsWithBalances opts args l =
where
ts = filter matchtxn $ ledgerTransactions l
matchtxn (Transaction _ _ desc acct _) = matchLedgerPatterns False apats acct
pats@(apats,dpats) = parseAccountDescriptionArgs args
apats = fst $ parseAccountDescriptionArgs args
startingbalance = nullamt
showTransactionsWithBalances' :: [Transaction] -> Transaction -> Amount -> [String]
showTransactionsWithBalances' [] _ _ = []