From 4a7a724f0a6a203ba04cee705c79e05e81569f87 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 15 Mar 2009 06:15:58 +0000
Subject: [PATCH] a --debug option, not hooked up to anything yet

---
 Options.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Options.hs b/Options.hs
index fc423929c..2f759f3f6 100644
--- 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)