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

cli: omit the -- from debug output as well

Browse Source
This commit is contained in:
Simon Michael 2014-04-27 23:44:24 -07:00
parent 9418967343
commit aee7b3512d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -265,9 +265,10 @@ main = do
-- an external command
| isExternalCommand = do
let shellcmd = printf "%s-%s %s" progname cmd (unwords' $ filter (not.(=="--")) argsaftercmd) :: String
let externalargs = filter (not.(=="--")) argsaftercmd
let shellcmd = printf "%s-%s %s" progname cmd (unwords' externalargs) :: String
dbgM "external command selected" cmd
dbgM "external command arguments" (map quoteIfNeeded argsaftercmd)
dbgM "external command arguments" (map quoteIfNeeded externalargs)
dbgM "running shell command" shellcmd
system shellcmd >>= exitWith