diff options
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 |