summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 13:12:39 -0400
committerJoey Hess2015-10-28 13:12:39 -0400
commit873f0861240f33bea00adc629adba80c31b79694 (patch)
tree102d841a23c9df6997d16e541e65571e9ae1f661
parent0372aa05acdf281e27402446e8cdb731a78a848e (diff)
propellor spin
-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