propellor spin

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