diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-06 14:10:48 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-06 14:10:48 -0400 |
| commit | dc9813a448d34496214904ddb7cae6dab88ce45e (patch) | |
| tree | b12143b481e0b9392a0f75a772ed0afddb77e439 /src/System/Console | |
| parent | 0a297ba8aac9f47caf013605c42c32ac1d84c44e (diff) | |
propellor spin
Diffstat (limited to 'src/System/Console')
| -rw-r--r-- | src/System/Console/Concurrent/Internal.hs | 3 |
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 |