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