From 6efe8fb30ba09bb5d9c53c9c7318f74c325210a4 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 14 Jun 2011 21:32:01 +0000 Subject: [PATCH] web: indent accounts more than "all accounts" in sidebar --- hledger-web/Hledger/Web/Handlers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-web/Hledger/Web/Handlers.hs b/hledger-web/Hledger/Web/Handlers.hs index 1ab6c3c42..8d47d8a48 100644 --- a/hledger-web/Hledger/Web/Handlers.hs +++ b/hledger-web/Hledger/Web/Handlers.hs @@ -258,7 +258,7 @@ accountsReportAsHtml _ vd@VD{..} (items',total) = inacctclass = case inacctmatcher of Just m -> if m `matchesAccount` acct then "inacct" else "notinacct" Nothing -> "" :: String - indent = preEscapedString $ concat $ replicate (2 * aindent) " " + indent = preEscapedString $ concat $ replicate (2 * (1+aindent)) " " acctquery = (RegisterR, [("q", pack $ accountQuery acct)]) acctonlyquery = (RegisterR, [("q", pack $ accountOnlyQuery acct)])