a --debug option, not hooked up to anything yet

2009-03-15 06:15:58 +00:00 · 2009-03-15 06:15:58 +00:00 · 4a7a724f0a
commit 4a7a724f0a
parent eed76e3722
1 changed files with 2 additions and 0 deletions
--- a/Options.hs
+++ b/Options.hs
@ -79,6 +79,7 @@ options = [
 ,Option ['h'] ["help"] (NoArg  Help)                  "show this help"
 ,Option ['v'] ["verbose"]      (NoArg  Verbose)       "verbose test output"
 ,Option ['V'] ["version"]      (NoArg  Version)       "show version"
+ ,Option []    ["debug"]        (NoArg  Debug)         "debug output"
 ,Option []    ["debug-no-ui"]  (NoArg  DebugNoUI)     "run ui commands without no output"
 ]
    where 
@ -105,6 +106,7 @@ data Opt =
    Help |
    Verbose |
    Version
+    | Debug
    | DebugNoUI
    deriving (Show,Eq)