simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-30 22:02:20 +03:00
Code Issues Projects Releases Wiki Activity

strip the -- when calling addon commands, so their options work (#64)

Browse Source
This commit is contained in:
Simon Michael 2011-09-23 14:10:27 +00:00
parent c274685ce5
commit c9f1f5c663
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/Main.hs
View File

@ -88,8 +88,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' argswithoutcmd) shellcmd = printf "%s-%s %s" progname matchedaddon (unwords' subcmdargs)
argswithoutcmd = args1 ++ drop 1 args2 where (args1,args2) = break (== cmd) args subcmdargs = args1 ++ drop 1 args2 where (args1,args2) = break (== cmd) $ filter (/="--") args
{- tests: {- tests: