diff options
Diffstat (limited to 'src/Utility/ConcurrentOutput.hs')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 2 |
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 |