[commit: packages/process] master: T11100: Expose createPipeInternalFd on POSIX systems as well (d41799f)

[git at git.haskell.org]

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

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

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

commit d41799f8c64e3e4c93082fa00b34e09ccb2ec56f
Author: Tamar Christina <tamar at zhox.com>
Date:   Sun Jan 24 18:32:58 2016 +0100

    T11100: Expose createPipeInternalFd on POSIX systems as well


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

d41799f8c64e3e4c93082fa00b34e09ccb2ec56f
 System/Process/Posix.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/System/Process/Posix.hs b/System/Process/Posix.hs
index 6129197..0b1f3f9 100644
--- a/System/Process/Posix.hs
+++ b/System/Process/Posix.hs
@@ -15,6 +15,7 @@ module System.Process.Posix
     , c_execvpe
     , pPrPr_disableITimers
     , createPipeInternal
+    , createPipeInternalFd
     , interruptProcessGroupOfInternal
     ) where
 
@@ -279,6 +280,9 @@ createPipeInternal = do
     writeh <- Posix.fdToHandle writefd
     return (readh, writeh)
 
+createPipeInternalFd :: IO (FD, FD)
+createPipeInternalFd = Posix.createPipe
+
 interruptProcessGroupOfInternal
     :: ProcessHandle    -- ^ A process in the process group
     -> IO ()