summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 12:26:28 -0400
committerJoey Hess2015-10-28 12:26:28 -0400
commit7f401a17aae36bc1baebadf98a26f1fb2de19731 (patch)
tree243fb4fcd158328a4ddd1a5462511c7800c27a40 /src/Utility
parent2b66f08e7ac525facde698102262ef56da855db9 (diff)
propellor spin
Diffstat (limited to 'src/Utility')
-rw-r--r--src/Utility/ConcurrentOutput.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 0e9a59de..193e757f 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -147,8 +147,12 @@ createProcessConcurrent :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Ma
createProcessConcurrent p
| willoutput (P.std_out p) || willoutput (P.std_err p) =
ifM tryTakeOutputLock
- ( firstprocess
- , concurrentprocess
+ ( do
+ print "IS NOT CONCURRENT"
+ firstprocess
+ , do
+ print "IS CONCURRENT"
+ concurrentprocess
)
| otherwise = P.createProcess p
where