simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

vty: fix "ui" in --help, also rename --debug-no-ui to --debug-vty

Browse Source
This commit is contained in:
Simon Michael 2010-05-23 22:46:04 +00:00
parent 38665bd1bc
commit 518da0c867
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hledger/Cli/Commands/UI.hs
View File

@ -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

6
Hledger/Cli/Options.hs
View File

@ -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}