summaryrefslogtreecommitdiff
path: root/src/Utility/Process.hs
diff options
context:
space:
mode:
authorMario Lang2015-09-13 00:46:49 +0200
committerJoey Hess2015-09-13 13:21:41 -0400
commitb84c9bbb7c9db688118ad756c1c43ef034fd98fb (patch)
tree61d50f50f58714e9df2390c337fa7bb2ff34d3ea /src/Utility/Process.hs
parent2af70d4ac7ff25a3e596de195abe40db46c74074 (diff)
Follow some hlint suggestions.
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"