diff options
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 8cb81c61..7868ffd4 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -170,7 +170,7 @@ createProcessConcurrent p , do lcker <- outputLockedBy <$> getOutputHandle l <- readMVar lcker - hPutStrLn stderr $ show ("IS CONCURRENT", l) + hPutStrLn stderr $ show ("IS CONCURRENT", cmd, l) concurrentprocess ) | otherwise = P.createProcess p |