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

balancesheet: support --flat and --drop, like balance

Browse Source
This commit is contained in:
Simon Michael 2014-03-21 17:34:58 -07:00
parent 2d1e0d7cd4
commit 5a8b5ed082
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli/Balancesheet.hs
View File

@ -24,7 +24,10 @@ import Hledger.Cli.Balance
balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) { balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) {
modeHelp = "show a balance sheet" `withAliases` aliases modeHelp = "show a balance sheet" `withAliases` aliases
,modeGroupFlags = Group { ,modeGroupFlags = Group {
groupUnnamed = [] groupUnnamed = [
flagNone ["flat"] (\opts -> setboolopt "flat" opts) "show full account names, unindented"
,flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "with --flat, omit this many leading account name components"
]
,groupHidden = [] ,groupHidden = []
,groupNamed = [generalflagsgroup1] ,groupNamed = [generalflagsgroup1]
} }