From 518da0c867786e196944430922aa5125727c0243 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 23 May 2010 22:46:04 +0000
Subject: [PATCH] vty: fix "ui" in --help, also rename --debug-no-ui to
 --debug-vty

---
 Hledger/Cli/Commands/UI.hs | 2 +-
 Hledger/Cli/Options.hs     | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Hledger/Cli/Commands/UI.hs b/Hledger/Cli/Commands/UI.hs
index da9dea834..e3d0e610c 100644
--- a/Hledger/Cli/Commands/UI.hs
+++ b/Hledger/Cli/Commands/UI.hs
@@ -71,7 +71,7 @@ ui opts args l = do
 -- | Update the screen, wait for the next event, repeat.
 go :: AppState -> IO ()
 go a@AppState{av=av,aopts=opts} = do
-  when (notElem DebugNoUI opts) $ update av (renderScreen a)
+  when (notElem DebugVty opts) $ update av (renderScreen a)
   k <- next_event av
   t <- getCurrentLocalTime
   case k of 
diff --git a/Hledger/Cli/Options.hs b/Hledger/Cli/Options.hs
index ae68b4d24..5c3b43cec 100644
--- a/Hledger/Cli/Options.hs
+++ b/Hledger/Cli/Options.hs
@@ -39,7 +39,7 @@ usagehdr =
   "  register  - show transactions as a register with running balance\n" ++
   "  stats     - show various statistics for a ledger\n" ++
 #ifdef VTY
-  "  ui        - run a simple text-based UI\n" ++
+  "  vty       - run a simple curses-style UI\n" ++
 #endif
 #ifdef WEB
   "  web       - run a simple web-based UI\n" ++
@@ -89,7 +89,7 @@ options = [
  ,Option "v" ["verbose"]      (NoArg  Verbose)       "show verbose test output"
  ,Option ""    ["binary-filename"] (NoArg BinaryFilename) "show the download filename for this hledger build"
  ,Option ""    ["debug"]        (NoArg  Debug)         "show extra debug output; implies verbose"
- ,Option ""    ["debug-no-ui"]  (NoArg  DebugNoUI)     "run ui commands with no output"
+ ,Option ""    ["debug-vty"]  (NoArg  DebugVty)     "run vty command with no vty output, showing console"
 #ifdef CHART
  ,Option "o" ["output"]  (ReqArg ChartOutput "FILE")    ("chart: output filename (default: "++chartoutput++")")
  ,Option ""  ["items"]  (ReqArg ChartItems "N")         ("chart: number of accounts to show (default: "++show chartitems++")")
@@ -123,7 +123,7 @@ data Opt =
     Version
     | BinaryFilename
     | Debug
-    | DebugNoUI
+    | DebugVty
 #ifdef CHART
     | ChartOutput {value::String}
     | ChartItems  {value::String}