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

note that getCliOpts, debugArgs api fns are unused

Browse Source
This commit is contained in:
Simon Michael 2013-12-07 06:10:45 -08:00
parent 8261ac0f56
commit 5bdc55ab77
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Options.hs
View File

@ -722,6 +722,8 @@ showModeHelp =
. .
(helpText [] HelpFormatDefault :: Mode a -> [Text]) (helpText [] HelpFormatDefault :: Mode a -> [Text])
-- not used:
-- | Print debug info about arguments and options if --debug is present. -- | Print debug info about arguments and options if --debug is present.
debugArgs :: [String] -> CliOpts -> IO () debugArgs :: [String] -> CliOpts -> IO ()
debugArgs args opts = debugArgs args opts =
@ -733,6 +735,8 @@ debugArgs args opts =
d <- getCurrentDay d <- getCurrentDay
putStrLn $ "search query: " ++ (show $ queryFromOpts d $ reportopts_ opts) putStrLn $ "search query: " ++ (show $ queryFromOpts d $ reportopts_ opts)
-- not used:
-- | Parse hledger CLI options from the command line using the given -- | Parse hledger CLI options from the command line using the given
-- cmdargs mode, and either return them or, if a help flag is present, -- cmdargs mode, and either return them or, if a help flag is present,
-- print the mode help and exit the program. -- print the mode help and exit the program.