From dc9813a448d34496214904ddb7cae6dab88ce45e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Mar 2016 14:10:48 -0400 Subject: propellor spin --- src/System/Console/Concurrent/Internal.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/System') 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 -- cgit v1.2.3