summaryrefslogtreecommitdiff
path: root/src/System
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 15:19:49 -0400
committerJoey Hess2016-03-06 15:19:49 -0400
commited710fc09905a2b85916f19d6d4f5ec2bffeecae (patch)
treeb540182830983d3db72d9b7b71f1f16d55c47580 /src/System
parenta06da5b738efd95c6772b5e4a1b510f1de2d7912 (diff)
propellor spin
Diffstat (limited to 'src/System')
-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