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 printmode = hledgerCommandMode
($(embedFileRelative "Hledger/Cli/Commands/Print.txt")) ($(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 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") ("show the transaction whose description is most similar to "++arg++", and is most recent")
,flagNone ["explicit","x"] (setboolopt "explicit") ,flagNone ["explicit","x"] (setboolopt "explicit")
"show all amounts explicitly" "show all amounts explicitly"
,flagNone ["new"] (setboolopt "new") ,flagNone ["new"] (setboolopt "new")
"show only newer-dated transactions added in each file since last run" "show only newer-dated transactions added in each file since last run"
] ] ++ outputflags)
[generalflagsgroup1] [generalflagsgroup1]
[] []
([], Just $ argsFlag "[QUERY]") ([], Just $ argsFlag "[QUERY]")

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

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