From 4b4dd3122516559a95dac4f17fc011f607f4ff76 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Nov 2015 12:00:10 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 4676c2fa..3494aa63 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -228,6 +228,8 @@ createProcessConcurrent p | otherwise = ss firstprocess = do + hPutStrLn stderr "RUNNING FG" + hFlush stderr r@(_, _, _, h) <- P.createProcess p `onException` dropOutputLock -- Wait for the process to exit and drop the lock. @@ -237,6 +239,8 @@ createProcessConcurrent p return r concurrentprocess = do + hPutStrLn stderr "RUNNING BG" + hFlush stderr (toouth, fromouth) <- pipe (toerrh, fromerrh) <- pipe let p' = p -- cgit v1.2.3