summaryrefslogtreecommitdiff
path: root/src/System
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 14:10:48 -0400
committerJoey Hess2016-03-06 14:10:48 -0400
commitdc9813a448d34496214904ddb7cae6dab88ce45e (patch)
treeb12143b481e0b9392a0f75a772ed0afddb77e439 /src/System
parent0a297ba8aac9f47caf013605c42c32ac1d84c44e (diff)
propellor spin
Diffstat (limited to 'src/System')
-rw-r--r--src/System/Console/Concurrent/Internal.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs
index a4cafb61..cc2beb91 100644
--- a/src/System/Console/Concurrent/Internal.hs
+++ b/src/System/Console/Concurrent/Internal.hs
@@ -302,6 +302,7 @@ bgProcess p = do
, P.std_err = rediroutput (P.std_err p) toerrh
}
registerOutputThread
+ liftIO $ print ("bgProcess", showproc (P.cmdspec p'))
r@(_, _, _, h) <- P.createProcess p'
`onException` unregisterOutputThread
asyncProcessWaiter $ void $ tryIO $ P.waitForProcess h
@@ -316,6 +317,8 @@ bgProcess p = do
rediroutput ss h
| willOutput ss = P.UseHandle h
| otherwise = ss
+ showproc (P.RawCommand c ps) = show (c, ps)
+ showproc (P.ShellCommand s) = show s
#endif
willOutput :: P.StdStream -> Bool