fix rightip strongswan blah blah

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/ProcessUtils.hs b/lib/ProcessUtils.hs
index b89edb9..1a9cc04 100644
--- a/lib/ProcessUtils.hs
+++ b/lib/ProcessUtils.hs
@@ -126,10 +126,12 @@ readProcessWithErrorH cmd args stdin erH = do
 runExternal :: String -> Maybe String -> IO (Int,(S.ByteString,S.ByteString))
 runExternal cmd input = do
     cwd <- getCurrentDirectory
+    {-
     putStr $ takeFileName cwd ++ "> " ++ cmd
                     ++ case input of
                             Nothing -> "\n"
                             Just s  -> " <<EOF\n" ++ s ++ "EOF\n"
+    -}
     let p = (shell cmd) { std_in  = maybe Inherit (const CreatePipe) input
                         , std_out = CreatePipe
                         , std_err = CreatePipe }