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

show help instead of register report if there is no command

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 07:10:15 +00:00
parent 3dca1ca548
commit 8de6d3b0a9
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Options.hs
View File

@ -7,7 +7,6 @@ import System.Directory
usagehdr = "Usage: hledger [OPTIONS] "++commands++" [ACCTPATTERNS] [-- DESCPATTERNS]\nOptions:" usagehdr = "Usage: hledger [OPTIONS] "++commands++" [ACCTPATTERNS] [-- DESCPATTERNS]\nOptions:"
commands = "register|balance|print" commands = "register|balance|print"
defaultcmd = "register"
defaultfile = "~/.ledger" defaultfile = "~/.ledger"
fileenvvar = "LEDGER" fileenvvar = "LEDGER"
@ -42,8 +41,8 @@ parseArguments :: IO ([Opt], String, [String])
parseArguments = do parseArguments = do
args <- getArgs args <- getArgs
case (getOpt RequireOrder options args) of case (getOpt RequireOrder options args) of
(opts,[],[]) -> return (opts, defaultcmd, [])
(opts,cmd:args,[]) -> return (opts, cmd, args) (opts,cmd:args,[]) -> return (opts, cmd, args)
(opts,[],[]) -> return ([Help], [], [])
(_,_,errs) -> ioError (userError (concat errs ++ usage)) (_,_,errs) -> ioError (userError (concat errs ++ usage))
-- | Get the ledger file path from options, an environment variable, or a default -- | Get the ledger file path from options, an environment variable, or a default