restore reg & bal aliases, even if not advertised

This commit is contained in:
Simon Michael 2014-03-18 13:47:13 -07:00
parent 3bc3e533c8
commit 92dc86ebae

View File

@ -292,7 +292,7 @@ addmode = (defCommandMode ["add"]) {
} }
} }
balancemode = (defCommandMode $ ["balance"] ++ aliases) { balancemode = (defCommandMode $ ["balance"] ++ aliases ++ ["bal"]) { -- also accept but don't show the common bal alias
modeHelp = "show accounts and balances" `withAliases` aliases modeHelp = "show accounts and balances" `withAliases` aliases
,modeGroupFlags = Group { ,modeGroupFlags = Group {
groupUnnamed = [ groupUnnamed = [
@ -320,7 +320,7 @@ printmode = (defCommandMode $ ["print"] ++ aliases) {
} }
where aliases = ["p"] where aliases = ["p"]
registermode = (defCommandMode $ ["register"] ++ aliases) { registermode = (defCommandMode $ ["register"] ++ aliases ++ ["reg"]) {
modeHelp = "show postings and running total" `withAliases` aliases modeHelp = "show postings and running total" `withAliases` aliases
,modeGroupFlags = Group { ,modeGroupFlags = Group {
groupUnnamed = [ groupUnnamed = [