diff options
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 |