From 877b137041cc7b016da56817e9ec6880702ac5a0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Nov 2015 18:11:42 -0400 Subject: propellor spin --- src/System/Console/Concurrent/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/System') 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 -- cgit v1.2.3