From aee7b3512d40c1161251837cd40bd60fc5134e18 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 27 Apr 2014 23:44:24 -0700
Subject: [PATCH] cli: omit the -- from debug output as well

---
 hledger/Hledger/Cli/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs
index f3896eac4..6c0405885 100644
--- a/hledger/Hledger/Cli/Main.hs
+++ b/hledger/Hledger/Cli/Main.hs
@@ -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