summaryrefslogtreecommitdiff
path: root/src/Utility/Process.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Utility/Process.hs')
-rw-r--r--src/Utility/Process.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Utility/Process.hs b/src/Utility/Process.hs
index 469f7659..bd179d09 100644
--- a/src/Utility/Process.hs
+++ b/src/Utility/Process.hs
@@ -171,7 +171,7 @@ createBackgroundProcess p a = a =<< createProcess p
-- returns a transcript combining its stdout and stderr, and
-- whether it succeeded or failed.
processTranscript :: String -> [String] -> (Maybe String) -> IO (String, Bool)
-processTranscript cmd opts input = processTranscript' cmd opts Nothing input
+processTranscript cmd opts = processTranscript' cmd opts Nothing
processTranscript' :: String -> [String] -> Maybe [(String, String)] -> (Maybe String) -> IO (String, Bool)
processTranscript' cmd opts environ input = do
@@ -347,11 +347,7 @@ processHandle (_, _, _, pid) = pid
-- | Debugging trace for a CreateProcess.
debugProcess :: CreateProcess -> IO ()
-debugProcess p = do
- debugM "Utility.Process" $ unwords
- [ action ++ ":"
- , showCmd p
- ]
+debugProcess p = debugM "Utility.Process" $ unwords [action ++ ":", showCmd p]
where
action
| piped (std_in p) && piped (std_out p) = "chat"