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

fix a bogus error with -f and no command

Browse Source
This commit is contained in:
Simon Michael 2011-08-16 22:23:05 +00:00
parent 3fa9fab9a4
commit 98509d4bbc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Options.hs
View File

@ -316,8 +316,8 @@ toCliOpts rawopts = do
-- workaround for http://code.google.com/p/ndmitchell/issues/detail?id=457 -- workaround for http://code.google.com/p/ndmitchell/issues/detail?id=457
-- just handles commonest cases -- just handles commonest cases
moveFlagsAfterCommand ("-f":f:cmd:rest) = cmd:"-f":f:rest moveFlagsAfterCommand (fflagandval@('-':'f':_:_):cmd:rest) = cmd:fflagandval:rest
moveFlagsAfterCommand (first:cmd:rest) | "-f" `isPrefixOf` first = cmd:first:rest moveFlagsAfterCommand ("-f":fval:cmd:rest) = cmd:"-f":fval:rest
moveFlagsAfterCommand as = as moveFlagsAfterCommand as = as
-- | Convert possibly encoded option values to regular unicode strings. -- | Convert possibly encoded option values to regular unicode strings.