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

print, reg: restore -o, -O flags dropped during refactor (#967)

Browse Source
This commit is contained in:
Simon Michael 2019-02-03 13:04:59 -08:00
parent 5458e7a973
commit c959e555ad
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Print.hs
View File

@ -28,14 +28,14 @@ import Hledger.Cli.Commands.Add ( transactionsSimilarTo )
printmode = hledgerCommandMode
($(embedFileRelative "Hledger/Cli/Commands/Print.txt"))
[let arg = "STR" in
([let arg = "STR" in
flagReq ["match","m"] (\s opts -> Right $ setopt "match" s opts) arg
("show the transaction whose description is most similar to "++arg++", and is most recent")
,flagNone ["explicit","x"] (setboolopt "explicit")
"show all amounts explicitly"
,flagNone ["new"] (setboolopt "new")
"show only newer-dated transactions added in each file since last run"
]
] ++ outputflags)
[generalflagsgroup1]
[]
([], Just $ argsFlag "[QUERY]")

4
hledger/Hledger/Cli/Commands/Register.hs
View File

@ -29,7 +29,7 @@ import Hledger.Cli.Utils
registermode = hledgerCommandMode
($(embedFileRelative "Hledger/Cli/Commands/Register.txt"))
[flagNone ["cumulative"] (\opts -> setboolopt "change" opts)
([flagNone ["cumulative"] (\opts -> setboolopt "change" opts)
"show running total from report start date (default)"
,flagNone ["historical","H"] (\opts -> setboolopt "historical" opts)
"show historical running total/balance (includes postings before report start date)\n "
@ -45,7 +45,7 @@ registermode = hledgerCommandMode
#endif
++ " or $COLUMNS). -wN,M sets description width as well."
)
]
] ++ outputflags)
[generalflagsgroup1]
[]
([], Just $ argsFlag "[QUERY]")