diff --git a/BalanceCommand.hs b/BalanceCommand.hs index b7b9913b1..b27341b75 100644 --- a/BalanceCommand.hs +++ b/BalanceCommand.hs @@ -127,9 +127,8 @@ showBalanceReport opts args l = acctsstr ++ totalstr where showacct = showInterestingAccount l interestingaccts interestingaccts = filter (isInteresting opts l) acctnames - acctnames = filter (matchpats apats) $ sort $ tail $ flatten $ treemap aname accttree + acctnames = sort $ tail $ flatten $ treemap aname accttree accttree = ledgerAccountTree (depthFromOpts opts) l - apats = fst $ parseAccountDescriptionArgs opts args totalstr | isZeroMixedAmount total = "" | otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmount total where