From d712ba163b26a2ccb5faf2202bcb5593c7e130d4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 5 Apr 2016 14:53:03 -0400 Subject: remove old debug code --- src/System/Console/Concurrent/Internal.hs | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'src') 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 -- cgit v1.2.3