[commit: packages/process] master, wip/issue15: Remove some old stray debug code (5143c78)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/process

On branches: master,wip/issue15
Link       : http://ghc.haskell.org/trac/ghc/changeset/5143c7895d9aeab37a7b72b416b855fe9c0cad87/process

>---------------------------------------------------------------

commit 5143c7895d9aeab37a7b72b416b855fe9c0cad87
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Sat Jan 10 20:49:43 2015 +0000

    Remove some old stray debug code


>---------------------------------------------------------------

5143c7895d9aeab37a7b72b416b855fe9c0cad87
 System/Process/Internals.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index e03e12c..03b19b3 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -335,7 +335,6 @@ startDelegateControlC =
     modifyMVar_ runInteractiveProcess_delegate_ctlc $ \delegating -> do
       case delegating of
         Nothing -> do
---          print ("startDelegateControlC", "Nothing")
           -- We're going to ignore ^C in the parent while there are any
           -- processes using ^C delegation.
           --
@@ -347,7 +346,6 @@ startDelegateControlC =
           return (Just (1, old_int, old_quit))
 
         Just (count, old_int, old_quit) -> do
---          print ("startDelegateControlC", count)
           -- If we're already doing it, just increment the count
           let !count' = count + 1
           return (Just (count', old_int, old_quit))
@@ -357,14 +355,12 @@ stopDelegateControlC =
     modifyMVar_ runInteractiveProcess_delegate_ctlc $ \delegating -> do
       case delegating of
         Just (1, old_int, old_quit) -> do
---          print ("endDelegateControlC", exitCode, 1 :: Int)
           -- Last process, so restore the old signal handlers
           _ <- installHandler sigINT  old_int  Nothing
           _ <- installHandler sigQUIT old_quit Nothing
           return Nothing
 
         Just (count, old_int, old_quit) -> do
---          print ("endDelegateControlC", exitCode, count)
           -- Not the last, just decrement the count
           let !count' = count - 1
           return (Just (count', old_int, old_quit))