summaryrefslogtreecommitdiff
path: root/src/System
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 14:13:08 -0400
committerJoey Hess2016-03-06 14:13:08 -0400
commit0b97dc3e9c122c7b9ca78012cafb0db8c0fe7844 (patch)
tree6406244535f3cb283dabc2f8da5232c10987a63f /src/System
parentdc9813a448d34496214904ddb7cae6dab88ce45e (diff)
propellor spin
Diffstat (limited to 'src/System')
-rw-r--r--src/System/Console/Concurrent/Internal.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs
index cc2beb91..9c62a8f2 100644
--- a/src/System/Console/Concurrent/Internal.hs
+++ b/src/System/Console/Concurrent/Internal.hs
@@ -284,12 +284,14 @@ createProcessForeground p = do
fgProcess :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ConcurrentProcessHandle)
fgProcess p = do
+ liftIO $ print ("fgProcess", showproc (P.cmdspec p))
r@(_, _, _, h) <- P.createProcess p
`onException` dropOutputLock
-- Wait for the process to exit and drop the lock.
asyncProcessWaiter $ do
void $ tryIO $ P.waitForProcess h
dropOutputLock
+ liftIO $ print ("fgProcess done", showproc (P.cmdspec p))
return (toConcurrentProcessHandle r)
#ifndef mingw32_HOST_OS
@@ -317,9 +319,10 @@ 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
+
+showproc (P.RawCommand c ps) = show (c, ps)
+showproc (P.ShellCommand s) = show s
willOutput :: P.StdStream -> Bool
willOutput P.Inherit = True