simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-14 02:14:14 +03:00
Code Issues Projects Releases Wiki Activity

web: indent accounts more than "all accounts" in sidebar

Browse Source
This commit is contained in:
Simon Michael 2011-06-14 21:32:01 +00:00
parent 6ba1119fdc
commit 6efe8fb30b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-web/Hledger/Web/Handlers.hs
View File

@ -258,7 +258,7 @@ accountsReportAsHtml _ vd@VD{..} (items',total) =
inacctclass = case inacctmatcher of inacctclass = case inacctmatcher of
Just m -> if m `matchesAccount` acct then "inacct" else "notinacct" Just m -> if m `matchesAccount` acct then "inacct" else "notinacct"
Nothing -> "" :: String Nothing -> "" :: String
indent = preEscapedString $ concat $ replicate (2 * aindent) " " indent = preEscapedString $ concat $ replicate (2 * (1+aindent)) " "
acctquery = (RegisterR, [("q", pack $ accountQuery acct)]) acctquery = (RegisterR, [("q", pack $ accountQuery acct)])
acctonlyquery = (RegisterR, [("q", pack $ accountOnlyQuery acct)]) acctonlyquery = (RegisterR, [("q", pack $ accountOnlyQuery acct)])