diff options
Diffstat (limited to 'lib/ProcessUtils.hs')
-rw-r--r-- | lib/ProcessUtils.hs | 2 |
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 | |||
126 | runExternal :: String -> Maybe String -> IO (Int,(S.ByteString,S.ByteString)) | 126 | runExternal :: String -> Maybe String -> IO (Int,(S.ByteString,S.ByteString)) |
127 | runExternal cmd input = do | 127 | runExternal 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 } |