[commit: packages/process] master: Add stopDelegateControlC for Windows 32bit (deeb7c8)

git at git.haskell.org git at git.haskell.org
Thu Mar 19 11:37:52 UTC 2015


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/deeb7c8a303c744684afa0f29c2b332a89262294/process

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

commit deeb7c8a303c744684afa0f29c2b332a89262294
Author: Takenobu Tani <takenobu.hs at gmail.com>
Date:   Tue Feb 17 23:08:21 2015 +0900

    Add stopDelegateControlC for Windows 32bit
    
    `Internals.hs` has an expect list for `stopDelegateControlC`.
    But the implementation is `#ifdef`'d between Unix and Windows.
    And `stopDelegateControlC` was not defined on Windows.
    
    This patch fixes Windows case by a no-op function for the issue #21


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

deeb7c8a303c744684afa0f29c2b332a89262294
 System/Process/Internals.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index 03b19b3..23e92a2 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -469,6 +469,9 @@ startDelegateControlC = return ()
 endDelegateControlC :: ExitCode -> IO ()
 endDelegateControlC _ = return ()
 
+stopDelegateControlC :: IO ()
+stopDelegateControlC = return ()
+
 foreign import ccall unsafe "runInteractiveProcess"
   c_runInteractiveProcess
         :: CWString



More information about the ghc-commits mailing list