diff --git a/hledger/Hledger/Cli/Balancesheet.hs b/hledger/Hledger/Cli/Balancesheet.hs index dea632c10..d7ae2c82e 100644 --- a/hledger/Hledger/Cli/Balancesheet.hs +++ b/hledger/Hledger/Cli/Balancesheet.hs @@ -24,7 +24,10 @@ import Hledger.Cli.Balance balancesheetmode = (defCommandMode $ ["balancesheet"]++aliases) { modeHelp = "show a balance sheet" `withAliases` aliases ,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 = [] ,groupNamed = [generalflagsgroup1] }