summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 13:00:24 -0400
committerJoey Hess2015-10-28 13:00:24 -0400
commit70f2208ed6d855895f22a467c9da80cad7402dda (patch)
tree26b8ef723124e84844790dd0ee65596b37a30f18
parent8ee6e628b240d11c6d45a7a849f6fa57b75b7d32 (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 8497b2dc..9e6b6a68 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -164,7 +164,10 @@ createProcessConcurrent :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Ma
createProcessConcurrent p
| willoutput (P.std_out p) || willoutput (P.std_err p) =
ifM tryTakeOutputLock
- ( firstprocess
+ ( do
+ hPutStrLn stderr $ show ("NOT CONCURRENT", cmd)
+ hFlush stderr
+ firstprocess
, do
lcker <- outputLockedBy <$> getOutputHandle
l <- readMVar lcker