[commit: process] master: Fix warnings on non-Windows (07e7b93)

Ian Lynagh igloo at earth.li
Sat Feb 16 23:06:07 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/packages/process

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/07e7b93fd2bd3da2ef554d48c24c1c90bbd5ace5

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

commit 07e7b93fd2bd3da2ef554d48c24c1c90bbd5ace5
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Feb 16 21:36:47 2013 +0000

    Fix warnings on non-Windows

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

 System/Process/Internals.hs |    7 -------
 1 files changed, 0 insertions(+), 7 deletions(-)

diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index 30c591d..36c9235 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -54,9 +54,6 @@ import System.IO
 #endif
 
 import System.IO.Unsafe
-#if !defined(mingw32_HOST_OS)
-import System.Exit      ( ExitCode )
-#endif
 import Control.Concurrent
 import Control.Exception
 import Foreign.C
@@ -69,7 +66,6 @@ import GHC.IO.Exception
 import GHC.IO.Encoding
 import qualified GHC.IO.FD as FD
 import GHC.IO.Device
-import GHC.IO.Handle
 import GHC.IO.Handle.FD
 import GHC.IO.Handle.Internals
 import GHC.IO.Handle.Types
@@ -129,9 +125,6 @@ withProcessHandle_ (ProcessHandle m) io = modifyMVar_ m io
 
 type PHANDLE = CPid
 
-throwErrnoIfBadPHandle :: String -> IO PHANDLE -> IO PHANDLE  
-throwErrnoIfBadPHandle = throwErrnoIfMinus1
-
 mkProcessHandle :: PHANDLE -> IO ProcessHandle
 mkProcessHandle p = do
   m <- newMVar (OpenHandle p)





More information about the ghc-commits mailing list