summaryrefslogtreecommitdiff
path: root/src/System/Console
diff options
context:
space:
mode:
authorJoey Hess2015-11-01 18:16:38 -0400
committerJoey Hess2015-11-01 18:16:38 -0400
commitd12f7f3ebf633470932b80fbadc9db762a6b57a8 (patch)
tree79b5568b921420aa8a97f5712404552f4457e039 /src/System/Console
parent5508efed4b8f76fbde593fd7b660575b885e5b0d (diff)
propellor spin
Diffstat (limited to 'src/System/Console')
-rw-r--r--src/System/Console/Concurrent/Internal.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs
index f616e6ff..55290921 100644
--- a/src/System/Console/Concurrent/Internal.hs
+++ b/src/System/Console/Concurrent/Internal.hs
@@ -238,8 +238,8 @@ createProcessConcurrent :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Ma
createProcessConcurrent p
| willOutput (P.std_out p) || willOutput (P.std_err p) =
ifM tryTakeOutputLock
- ( print "IN FG">>fgProcess p
- , print "IN BG">>bgProcess p
+ ( fgProcess p
+ , bgProcess p
)
| otherwise = do
r@(_, _, _, h) <- P.createProcess p