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

--debug implies --verbose

Browse Source
This commit is contained in:
Simon Michael 2009-08-12 09:07:56 +00:00
parent 1b5f72c17f
commit 5939a93d95
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Options.hs
View File

@ -79,7 +79,7 @@ options = [
,Option ['V'] ["version"] (NoArg Version) "show version information" ,Option ['V'] ["version"] (NoArg Version) "show version information"
,Option ['v'] ["verbose"] (NoArg Verbose) "show verbose test output" ,Option ['v'] ["verbose"] (NoArg Verbose) "show verbose test output"
,Option [] ["binary-filename"] (NoArg BinaryFilename) "show the download filename for this hledger build" ,Option [] ["binary-filename"] (NoArg BinaryFilename) "show the download filename for this hledger build"
,Option [] ["debug"] (NoArg Debug) "show some debug output" ,Option [] ["debug"] (NoArg Debug) "show extra debug output; implies verbose"
,Option [] ["debug-no-ui"] (NoArg DebugNoUI) "run ui commands with no output" ,Option [] ["debug-no-ui"] (NoArg DebugNoUI) "run ui commands with no output"
] ]
@ -133,7 +133,8 @@ parseArguments = do
let (os,as,es) = getOpt Permute options args let (os,as,es) = getOpt Permute options args
-- istimequery <- usingTimeProgramName -- istimequery <- usingTimeProgramName
-- let os' = if istimequery then (Period "today"):os else os -- let os' = if istimequery then (Period "today"):os else os
os'' <- fixOptDates os os' <- fixOptDates os
let os'' = if Debug `elem` os' then (Verbose:os') else os'
case (as,es) of case (as,es) of
(cmd:args,[]) -> return (os'',cmd,args) (cmd:args,[]) -> return (os'',cmd,args)
([],[]) -> return (os'',"",[]) ([],[]) -> return (os'',"",[])