[commit: packages/process] master: Fix windows build. (de34100)

[git at git.haskell.org]

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

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

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

commit de34100cd7c389915d0750bf51329bc8e991fec1
Author: Austin Seipp <austin at well-typed.com>
Date:   Wed Nov 20 22:49:55 2013 -0600

    Fix windows build.
    
    Win32 doesn't have defaultSignal.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

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

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index b00280f..47c82e0 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -676,7 +676,10 @@ runGenProcess_
  -> Maybe CLong                -- ^ handler for SIGINT
  -> Maybe CLong                -- ^ handler for SIGQUIT
  -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle)
+#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 runGenProcess_ fun c (Just sig) (Just sig') | sig == defaultSignal && sig == sig'
                          = createProcess_ fun c { delegate_ctlc = True }
 runGenProcess_ fun c _ _ = createProcess_ fun c
+#else
+runGenProcess_ fun c _ _ = createProcess_ fun c
 #endif