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

fix warnings

Browse Source
This commit is contained in:
Simon Michael 2011-06-27 13:27:26 +00:00
parent fcc8d6f8ee
commit c572addaa0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -180,7 +180,7 @@ datedisplayexpr = do
-- Similar to "postingRegisterReport" except it uses matchers and
-- per-transaction report items like "accountRegisterReport".
journalRegisterReport :: [Opt] -> Journal -> Matcher -> AccountRegisterReport
journalRegisterReport opts j@Journal{jtxns=ts} m = (totallabel, items)
journalRegisterReport _ Journal{jtxns=ts} m = (totallabel, items)
where
ts' = sortBy (comparing tdate) $ filter (not . null . tpostings) $ map (filterTransactionPostings m) ts
items = reverse $ accountRegisterReportItems m MatchNone nullmixedamt (+) ts'
@ -228,7 +228,7 @@ accountRegisterReport opts j m thisacctmatcher = (label, items)
-- and balance summing function.
accountRegisterReportItems :: Matcher -> Matcher -> MixedAmount -> (MixedAmount -> MixedAmount -> MixedAmount) -> [Transaction] -> [AccountRegisterReportItem]
accountRegisterReportItems _ _ _ _ [] = []
accountRegisterReportItems matcher thisacctmatcher bal sumfn (t@Transaction{tpostings=ps}:ts) =
accountRegisterReportItems matcher thisacctmatcher bal sumfn (t:ts) =
case i of Just i' -> i':is
Nothing -> is
where