diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-11-01 18:11:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-01 18:11:42 -0400 |
| commit | 877b137041cc7b016da56817e9ec6880702ac5a0 (patch) | |
| tree | 2c4bd9d7ab7002101d59b297dacacec79fd54774 /src/System/Console/Concurrent/Internal.hs | |
| parent | 5b399df6592770e6ac5983784e89389d8ce1e116 (diff) | |
propellor spin
Diffstat (limited to 'src/System/Console/Concurrent/Internal.hs')
| -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 55290921..f616e6ff 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 - ( fgProcess p - , bgProcess p + ( print "IN FG">>fgProcess p + , print "IN BG">>bgProcess p ) | otherwise = do r@(_, _, _, h) <- P.createProcess p |