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

cleanups

Browse Source
This commit is contained in:
Simon Michael 2010-07-13 21:52:54 +00:00
parent d140cdc7bf
commit d920e853e5
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hledger/Cli/Options.hs
View File

@ -174,8 +174,6 @@ parseArguments :: IO ([Opt], String, [String])
parseArguments = do parseArguments = do
args <- liftM (map decodeString) getArgs args <- liftM (map decodeString) getArgs
let (os,as,es) = getOpt Permute options args let (os,as,es) = getOpt Permute options args
-- istimequery <- usingTimeProgramName
-- let os' = if istimequery then (Period "today"):os else os
os' <- fixOptDates os os' <- fixOptDates os
let os'' = if Debug `elem` os' then Verbose:os' else os' let os'' = if Debug `elem` os' then Verbose:os' else os'
case (as,es) of case (as,es) of
@ -272,7 +270,7 @@ clearedValueFromOpts opts | null os = Nothing
| otherwise = Just False | otherwise = Just False
where os = optsWithConstructors [Cleared,UnCleared] opts where os = optsWithConstructors [Cleared,UnCleared] opts
-- | Was the program invoked via the \"hours\" alias ? -- | Were we invoked as \"hours\" ?
usingTimeProgramName :: IO Bool usingTimeProgramName :: IO Bool
usingTimeProgramName = do usingTimeProgramName = do
progname <- getProgName progname <- getProgName