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 -- an external command
| isExternalCommand = do | 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 selected" cmd
dbgM "external command arguments" (map quoteIfNeeded argsaftercmd) dbgM "external command arguments" (map quoteIfNeeded externalargs)
dbgM "running shell command" shellcmd dbgM "running shell command" shellcmd
system shellcmd >>= exitWith system shellcmd >>= exitWith