diff --git a/bin/hledger-check-postable.hs b/bin/hledger-check-postable.hs index 49a4fe723..037c7720e 100755 --- a/bin/hledger-check-postable.hs +++ b/bin/hledger-check-postable.hs @@ -26,8 +26,6 @@ cmdmode :: Mode RawOpts cmdmode = hledgerCommandMode [s| check-postable Check that no postings are made to accounts with a postable:(n|no) tag. - -_FLAGS |] [] [generalflagsgroup1] diff --git a/bin/hledger-move.hs b/bin/hledger-move.hs index c8467203a..4af056ab8 100755 --- a/bin/hledger-move.hs +++ b/bin/hledger-move.hs @@ -44,8 +44,7 @@ import Hledger.Cli.Script ------------------------------------------------------------------------------ cmdmode = hledgerCommandMode - -- Command name and help text goes here. Current limitations: - -- help text must be above _FLAGS, blank lines will not be displayed. + -- Command name and help text goes here. Note blank lines will not be displayed. [s| hledger-move Print an entry to move funds between accounts, preserving costs and subaccounts . @@ -82,8 +81,6 @@ Examples: . $ hledger-move $50 assets:checking assets:cash # withdraw cash from bank $ hledger-move ADA1000 ada:wallet1 ada:wallet2 # move 1000 ADA, keeping lots - -_FLAGS |] {- NOT YET IMPLEMENTED: diff --git a/bin/hledger-print-location.hs b/bin/hledger-print-location.hs index de3b65e0d..780c742e5 100755 --- a/bin/hledger-print-location.hs +++ b/bin/hledger-print-location.hs @@ -26,7 +26,6 @@ import Hledger.Cli.Script cmdmode = hledgerCommandMode [s| print-location Like print, but adds tags showing the file path and location of transactions. -_FLAGS |] [] [generalflagsgroup1] diff --git a/bin/hledger-register-max2.hs b/bin/hledger-register-max2.hs index e876d1e5c..b9c7cba80 100755 --- a/bin/hledger-register-max2.hs +++ b/bin/hledger-register-max2.hs @@ -15,7 +15,7 @@ import qualified "text" Data.Text as T import qualified "text" Data.Text.IO as T cmdmode = hledgerCommandMode (unlines - -- Command name, then --help text, then _FLAGS; empty help lines get stripped: + -- Command name, then --help text. Note, empty help lines get stripped. ["register-match" ,"Show the register item(s) with maximum (or with --invert, minimum) balance." ,"Usage: hledger-register-max [REGISTERARGS]" @@ -25,8 +25,6 @@ cmdmode = hledgerCommandMode (unlines ,"$ hledger-register-max -f examples/bcexample.hledger -H checking" ,"2013-01-03 Payroll Assets:US:BofA:Checking 1350.60 USD 8799.22 USD" ------------------------------------78---------------------------------------- - ,"" - ,"_FLAGS" ]) [] [generalflagsgroup1] [] ([], Just $ argsFlag "[ARGS]") -- or Nothing diff --git a/bin/hledger-script-example.hs b/bin/hledger-script-example.hs index 667f94647..cb4eac8c5 100755 --- a/bin/hledger-script-example.hs +++ b/bin/hledger-script-example.hs @@ -28,7 +28,7 @@ import qualified "text" Data.Text as T import qualified "text" Data.Text.IO as T cmdmode = hledgerCommandMode (unlines - -- Command name, then --help text, then _FLAGS; empty help lines get stripped: + -- Command name, then --help text. Note, empty help lines get stripped. ["script-example" ,"This is an example of a (hledger-lib-using) hledger script." ,"Usage: hledger-script-example [OPTS] [ARGS]" @@ -39,8 +39,6 @@ cmdmode = hledgerCommandMode (unlines ,"$ hledger-script-example --help" ,"(this help)" ------------------------------------78---------------------------------------- - ,"" - ,"_FLAGS" ]) [] [generalflagsgroup1] [] ([], Just $ argsFlag "[ARGS]") -- or Nothing @@ -89,8 +87,8 @@ main = do -- Using [s|...|] for multiline string literals (requires string-qq package and {-# LANGUAGE QuasiQuotes #-}): -- cmdmode = hledgerCommandMode (unlines --- -- Command name, then --help text, then _FLAGS; empty help lines get stripped: --- [s| script-example +-- -- Command name, then --help text. Note, empty help lines get stripped. +-- [s| script-example -- This is an example of a (hledger-lib-using) hledger script." -- Usage: hledger-script-example [OPTS] [ARGS]" -- or: hledger script-example -- [OPTS] [ARGS]" @@ -99,8 +97,6 @@ main = do -- Examples:" -- $ hledger-script-example --help" -- (this help)" --- --- _FLAGS -- |] -- ------------------------------------78---------------------------------------- -- [] [generalflagsgroup1] [] ([], Just $ argsFlag "[ARGS]") -- or Nothing diff --git a/bin/hledger-smooth.hs b/bin/hledger-smooth.hs index fcc24501d..c4f5c346f 100755 --- a/bin/hledger-smooth.hs +++ b/bin/hledger-smooth.hs @@ -43,8 +43,6 @@ It can differ from the others. Useful for preprocessing a journal to smooth out irregular revenues or expenses in daily/weekly/monthly reports, eg: hledger smooth revenues:consulting | hledger -f- incomestatement -W - -_FLAGS |] [] [generalflagsgroup1] diff --git a/bin/hledger-swap-dates.hs b/bin/hledger-swap-dates.hs index 03e3317f3..d86da58cf 100755 --- a/bin/hledger-swap-dates.hs +++ b/bin/hledger-swap-dates.hs @@ -18,7 +18,6 @@ cmdmode = hledgerCommandMode [s| swap-dates Swap date and date2, on transactions which have date2 defined. (Does not yet swap posting dates.) -_FLAGS |] [] [generalflagsgroup1]