diff options
Diffstat (limited to 'src/System/Console/Concurrent')
| -rw-r--r-- | src/System/Console/Concurrent/Internal.hs | 1 |
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 |