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

web: fix warning

Browse Source
This commit is contained in:
Simon Michael 2011-07-01 00:46:41 +00:00
parent f9ce624ef0
commit c461104a53
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger/Hledger/Cli/Register.hs
View File

@ -245,7 +245,6 @@ accountRegisterReportItems matcher thisacctmatcher bal signfn (t:ts) =
tmatched@Transaction{tpostings=psmatched} = filterTransactionPostings matcher t tmatched@Transaction{tpostings=psmatched} = filterTransactionPostings matcher t
(psthisacct,psotheracct) = case thisacctmatcher of Just m -> partition (matchesPosting m) psmatched (psthisacct,psotheracct) = case thisacctmatcher of Just m -> partition (matchesPosting m) psmatched
Nothing -> ([],psmatched) Nothing -> ([],psmatched)
numthisaccts = length $ nub $ map paccount psthisacct
numotheraccts = length $ nub $ map paccount psotheracct numotheraccts = length $ nub $ map paccount psotheracct
amt = sum $ map pamount psotheracct amt = sum $ map pamount psotheracct
acct | isNothing thisacctmatcher = summarisePostings psmatched -- journal register acct | isNothing thisacctmatcher = summarisePostings psmatched -- journal register