summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
Diffstat (limited to 'src/Utility')
-rw-r--r--src/Utility/ConcurrentOutput.hs12
1 files changed, 10 insertions, 2 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 3624ffbf..35904cb7 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -132,14 +132,22 @@ createProcessConcurrent :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Ma
createProcessConcurrent p
| hasoutput (P.std_out p) || hasoutput (P.std_err p) =
ifM tryTakeOutputLock
- ( firstprocess
- , concurrentprocess
+ ( do
+ print ("FIRST", pc)
+ firstprocess
+ , do
+ print ("CONCURRENT", pc)
+ concurrentprocess
)
| otherwise = P.createProcess p
where
hasoutput P.Inherit = True
hasoutput _ = False
+ pc = case P.cmdspec p of
+ P.ShellCommand s -> s
+ P.RawCommand c ps -> unwords (c:ps)
+
firstprocess = do
r@(_, _, _, h) <- P.createProcess p
`onException` dropOutputLock