summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2016-04-05 14:53:03 -0400
committerJoey Hess2016-04-05 14:53:03 -0400
commitd712ba163b26a2ccb5faf2202bcb5593c7e130d4 (patch)
treec3d857c548014afebe38281c923e4907cb0f0619 /src
parentdd041e2c1bf41a3d50cd95009b93a90f685ac4fe (diff)
remove old debug code
Diffstat (limited to 'src')
-rw-r--r--src/System/Console/Concurrent/Internal.hs13
1 files changed, 0 insertions, 13 deletions
diff --git a/src/System/Console/Concurrent/Internal.hs b/src/System/Console/Concurrent/Internal.hs
index 6426f37d..ffe6a9e8 100644
--- a/src/System/Console/Concurrent/Internal.hs
+++ b/src/System/Console/Concurrent/Internal.hs
@@ -34,7 +34,6 @@ import qualified Data.Text as T
import qualified Data.Text.IO as T
import Control.Applicative
import Prelude
-import System.Log.Logger
import Utility.Monad
import Utility.Exception
@@ -290,30 +289,18 @@ fgProcess p = do
r@(_, _, _, h) <- P.createProcess p
`onException` dropOutputLock
registerOutputThread
- debug ["fgProcess", showProc p]
-- Wait for the process to exit and drop the lock.
asyncProcessWaiter $ do
void $ tryIO $ P.waitForProcess h
unregisterOutputThread
dropOutputLock
- debug ["fgProcess done", showProc p]
return (toConcurrentProcessHandle r)
-
-debug :: [String] -> IO ()
-debug = debugM "concurrent-output" . unwords
-
-showProc :: P.CreateProcess -> String
-showProc = go . P.cmdspec
- where
- go (P.ShellCommand s) = s
- go (P.RawCommand c ps) = show (c, ps)
#ifndef mingw32_HOST_OS
bgProcess :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ConcurrentProcessHandle)
bgProcess p = do
(toouth, fromouth) <- pipe
(toerrh, fromerrh) <- pipe
- debug ["bgProcess", showProc p]
let p' = p
{ P.std_out = rediroutput (P.std_out p) toouth
, P.std_err = rediroutput (P.std_err p) toerrh