From 9203588d6d852e98da193be833a3d2a433edb76b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 1 Apr 2009 05:38:31 +0000 Subject: [PATCH] roll back additional web-related balance report filtering, breaks tests --- BalanceCommand.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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