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

fix --version

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 21:47:56 +00:00
parent 6035ebfaca
commit b4ade0985f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Options.hs
View File

@ -51,7 +51,7 @@ parseArguments = do
args <- getArgs args <- getArgs
case (getOpt optionorder options args) of case (getOpt optionorder options args) of
(opts,cmd:args,[]) -> return (opts, cmd, args) (opts,cmd:args,[]) -> return (opts, cmd, args)
(opts,[],[]) -> return ([Help], [], []) (opts,[],[]) -> return (opts, [], [])
(_,_,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