diff options
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 20e39832..279421e2 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -116,6 +116,7 @@ updateOutputLocker l = do lcker <- outputLockedBy <$> getOutputHandle void $ tryTakeMVar lcker putMVar lcker l + modifyMVar_ lcker (const $ return l) -- | Use this around any IO actions that use `outputConcurrent` -- or `createProcessConcurrent` @@ -169,15 +170,11 @@ createProcessConcurrent p firstprocess , do lcker <- outputLockedBy <$> getOutputHandle - l <- tryReadMVar lcker - hPutStrLn stderr $ show ("IS CONCURRENT", cmd, l) + hPutStrLn stderr $ show ("IS CONCURRENT", cmd) hFlush stderr concurrentprocess ) - | otherwise = do - hPutStrLn stderr $ show ("NO OUTPUT", cmd) - hFlush stderr - P.createProcess p + | otherwise = P.createProcess p where willoutput P.Inherit = True willoutput _ = False |