diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-11-01 12:00:10 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-01 12:00:10 -0400 |
| commit | 4b4dd3122516559a95dac4f17fc011f607f4ff76 (patch) | |
| tree | 6ed46fc175f887ab1bd1a6a4b1685b993b30da56 /src | |
| parent | 80300166c552a7329a3df8fa693b9c45158eb229 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |