summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 12:27:48 -0400
committerJoey Hess2015-10-28 12:27:48 -0400
commitf79fe8c0b16638c22a1094b5b2d7e4b62810d839 (patch)
treeb262fa551a3190507534854be53498f332c57579
parent7f401a17aae36bc1baebadf98a26f1fb2de19731 (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 193e757f..1ca92d90 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -148,10 +148,10 @@ createProcessConcurrent p
| willoutput (P.std_out p) || willoutput (P.std_err p) =
ifM tryTakeOutputLock
( do
- print "IS NOT CONCURRENT"
+ hPutStrLn stderr "IS NOT CONCURRENT"
firstprocess
, do
- print "IS CONCURRENT"
+ hPutStrLn stderr "IS CONCURRENT"
concurrentprocess
)
| otherwise = P.createProcess p