summaryrefslogtreecommitdiff
path: root/Utility/Process.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-07-08 14:51:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-07-08 14:51:43 -0400
commit8ecb873d1275420d0d96a5fe371975bcdcf74178 (patch)
tree6effb8dc7a4c70cd5e8aaa8464b9d2f224c5c034 /Utility/Process.hs
parentca5e26059b243c41ff03537a1cf9c3af2449ccfc (diff)
reorg
Diffstat (limited to 'Utility/Process.hs')
-rw-r--r--Utility/Process.hs16
1 files changed, 6 insertions, 10 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs
index a98d04df5..3a8677fa3 100644
--- a/Utility/Process.hs
+++ b/Utility/Process.hs
@@ -296,16 +296,6 @@ showCmd = go . cmdspec
go (ShellCommand s) = s
go (RawCommand c ps) = c ++ " " ++ show ps
-{- Wrappers for System.Process functions that do debug logging.
- -
- - More could be added, but these are the only ones I usually need.
- -}
-
-createProcess :: CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle)
-createProcess p = do
- debugProcess p
- System.Process.createProcess p
-
{- Starts an interactive process. Unlike runInteractiveProcess in
- System.Process, stderr is inherited. -}
startInteractiveProcess
@@ -322,3 +312,9 @@ startInteractiveProcess cmd args environ = do
}
(Just from, Just to, _, pid) <- createProcess p
return (pid, to, from)
+
+{- Wrapper around System.Process function that does debug logging. -}
+createProcess :: CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle)
+createProcess p = do
+ debugProcess p
+ System.Process.createProcess p