From daaf67021cd468fecefbeb0dbfe6244ca34b3a6d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Mar 2016 15:07:41 -0400 Subject: propellor spin --- src/System/Console/Concurrent/Internal.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/System') diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs index 38cc867a..b3ae588c 100644 --- a/src/System/Console/Concurrent/Internal.hs +++ b/src/System/Console/Concurrent/Internal.hs @@ -291,6 +291,7 @@ fgProcess p = do asyncProcessWaiter $ do void $ tryIO $ P.waitForProcess h dropOutputLock + print ("fgProcess done", showProc p) return (toConcurrentProcessHandle r) #ifndef mingw32_HOST_OS -- cgit v1.2.3