[commit: packages/process] master: T11100: Use the correct Fd type for POSIX. (400f1bf)

[git at git.haskell.org]

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

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

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

commit 400f1bf668bad941d6b78ae6e3f2480666395e5e
Author: Tamar Christina <tamar at zhox.com>
Date:   Sun Jan 24 19:54:39 2016 +0100

    T11100: Use the correct Fd type for POSIX.


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

400f1bf668bad941d6b78ae6e3f2480666395e5e
 System/Process/Posix.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/System/Process/Posix.hs b/System/Process/Posix.hs
index 0b1f3f9..d11e793 100644
--- a/System/Process/Posix.hs
+++ b/System/Process/Posix.hs
@@ -281,7 +281,9 @@ createPipeInternal = do
     return (readh, writeh)
 
 createPipeInternalFd :: IO (FD, FD)
-createPipeInternalFd = Posix.createPipe
+createPipeInternalFd = do
+   (Fd readfd, Fd writefd) <- Posix.createPipe
+   return (readfd, writefd)
 
 interruptProcessGroupOfInternal
     :: ProcessHandle    -- ^ A process in the process group