[commit: packages/process] master: GH77: fix pattern matching posix. (ad967f8)

[git at git.haskell.org]

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

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

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

commit ad967f819ad001ce54f6ef367165f4b8c143fbb4
Author: Tamar Christina <tamar at zhox.com>
Date:   Sun Jan 8 09:51:18 2017 +0000

    GH77: fix pattern matching posix.


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

ad967f819ad001ce54f6ef367165f4b8c143fbb4
 System/Process/Posix.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/System/Process/Posix.hs b/System/Process/Posix.hs
index dbcd285..cd8573f 100644
--- a/System/Process/Posix.hs
+++ b/System/Process/Posix.hs
@@ -295,7 +295,8 @@ interruptProcessGroupOfInternal
 interruptProcessGroupOfInternal ph = do
     withProcessHandle ph $ \p_ -> do
         case p_ of
-            ClosedHandle _ -> return ()
-            OpenHandle h -> do
+            OpenExtHandle{} -> return ()
+            ClosedHandle  _ -> return ()
+            OpenHandle    h -> do
                 pgid <- getProcessGroupIDOf h
                 signalProcessGroup sigINT pgid