diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/System/Console/Concurrent/Internal.hs | 4 |
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 |