summaryrefslogtreecommitdiff
path: root/lib/ProcessUtils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ProcessUtils.hs')
-rw-r--r--lib/ProcessUtils.hs2
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
126runExternal :: String -> Maybe String -> IO (Int,(S.ByteString,S.ByteString)) 126runExternal :: String -> Maybe String -> IO (Int,(S.ByteString,S.ByteString))
127runExternal cmd input = do 127runExternal cmd input = do
128 cwd <- getCurrentDirectory 128 cwd <- getCurrentDirectory
129 {-
129 putStr $ takeFileName cwd ++ "> " ++ cmd 130 putStr $ takeFileName cwd ++ "> " ++ cmd
130 ++ case input of 131 ++ case input of
131 Nothing -> "\n" 132 Nothing -> "\n"
132 Just s -> " <<EOF\n" ++ s ++ "EOF\n" 133 Just s -> " <<EOF\n" ++ s ++ "EOF\n"
134 -}
133 let p = (shell cmd) { std_in = maybe Inherit (const CreatePipe) input 135 let p = (shell cmd) { std_in = maybe Inherit (const CreatePipe) input
134 , std_out = CreatePipe 136 , std_out = CreatePipe
135 , std_err = CreatePipe } 137 , std_err = CreatePipe }