slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 where
ts = filter matchtxn $ ledgerTransactions l ts = filter matchtxn $ ledgerTransactions l
matchtxn (Transaction _ _ desc acct _) = matchLedgerPatterns False apats acct matchtxn (Transaction _ _ desc acct _) = matchLedgerPatterns False apats acct
pats@(apats,dpats) = parseAccountDescriptionArgs args apats = fst $ parseAccountDescriptionArgs args
startingbalance = nullamt startingbalance = nullamt
showTransactionsWithBalances' :: [Transaction] -> Transaction -> Amount -> [String] showTransactionsWithBalances' :: [Transaction] -> Transaction -> Amount -> [String]
showTransactionsWithBalances' [] _ _ = [] showTransactionsWithBalances' [] _ _ = []