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

don't pass an addon command's name to it as an extra argument

Browse Source
This commit is contained in:
Simon Michael 2011-09-11 21:48:13 +00:00
parent f37d7b5659
commit 8a50cb1289
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger/Hledger/Cli/Main.hs
View File

@ -87,7 +87,8 @@ main = do
showModeHelpOr mode f | "help" `in_` (rawopts_ opts) = putStr $ showModeHelp mode showModeHelpOr mode f | "help" `in_` (rawopts_ opts) = putStr $ showModeHelp mode
| otherwise = f | otherwise = f
matchedaddon = headDef "" $ filter (cmd `isPrefixOf`) addons matchedaddon = headDef "" $ filter (cmd `isPrefixOf`) addons
shellcmd = printf "%s-%s %s" progname matchedaddon (unwords' args) shellcmd = printf "%s-%s %s" progname matchedaddon (unwords' argswithoutcmd)
argswithoutcmd = args1 ++ drop 1 args2 where (args1,args2) = break (== cmd) args
{- tests: {- tests: