summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Utility/ConcurrentOutput.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 71055f14..faef2d00 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -186,7 +186,7 @@ createProcessConcurrent p
firstprocess
, do
lcker <- outputLockedBy <$> getOutputHandle
- l <- readMVar lcker
+ l <- tryReadMVar lcker
hPutStrLn stderr $ show ("IS CONCURRENT", cmd, l)
hFlush stderr
concurrentprocess