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.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs
index 38cc867a..b3ae588c 100644
--- a/src/System/Console/Concurrent/Internal.hs
+++ b/src/System/Console/Concurrent/Internal.hs
@@ -291,6 +291,7 @@ fgProcess p = do
asyncProcessWaiter $ do
void $ tryIO $ P.waitForProcess h
dropOutputLock
+ print ("fgProcess done", showProc p)
return (toConcurrentProcessHandle r)
#ifndef mingw32_HOST_OS