summaryrefslogtreecommitdiff
path: root/src/System/Console/Concurrent/Internal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/System/Console/Concurrent/Internal.hs')
-rw-r--r--src/System/Console/Concurrent/Internal.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs
index f38c63c3..ea4534fd 100644
--- a/src/System/Console/Concurrent/Internal.hs
+++ b/src/System/Console/Concurrent/Internal.hs
@@ -284,13 +284,13 @@ createProcessForeground p = do
fgProcess :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ConcurrentProcessHandle)
fgProcess p = do
- print ("fgProcess", showProc p)
+ hPutStrLn stderr $ show ("fgProcess", showProc p)
r@(_, _, _, h) <- P.createProcess p
`onException` dropOutputLock
-- Wait for the process to exit and drop the lock.
asyncProcessWaiter $ do
void $ tryIO $ P.waitForProcess h
- print ("fgProcess done", showProc p)
+ hPutStrLn stderr $ show ("fgProcess done", showProc p)
dropOutputLock
return (toConcurrentProcessHandle r)
@@ -299,7 +299,7 @@ bgProcess :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, Co
bgProcess p = do
(toouth, fromouth) <- pipe
(toerrh, fromerrh) <- pipe
- print ("bgProcess", showProc p)
+ hPutStrLn stderr $ show ("bgProcess", showProc p)
let p' = p
{ P.std_out = rediroutput (P.std_out p) toouth
, P.std_err = rediroutput (P.std_err p) toerrh