[commit: packages/process] less-cpp, master: Fix some GHC 7.2 warnings (c12eb1c)

git at git.haskell.org git at git.haskell.org
Tue Dec 15 13:34:34 UTC 2015


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

On branches: less-cpp,master
Link       : http://ghc.haskell.org/trac/ghc/changeset/c12eb1cd92b54333bec29356dd88a966ccf67ada/process

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

commit c12eb1cd92b54333bec29356dd88a966ccf67ada
Author: Michael Snoyman <michael at fpcomplete.com>
Date:   Mon Nov 2 16:40:17 2015 +0000

    Fix some GHC 7.2 warnings


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

c12eb1cd92b54333bec29356dd88a966ccf67ada
 System/Process.hsc       |  2 ++
 System/Process/Common.hs | 10 ++++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/System/Process.hsc b/System/Process.hsc
index a390c74..f8431a4 100644
--- a/System/Process.hsc
+++ b/System/Process.hsc
@@ -94,8 +94,10 @@ import Control.Exception (onException)
 #else
 import System.Posix.Process (getProcessGroupIDOf)
 import qualified System.Posix.IO as Posix
+#if MIN_VERSION_base(4,5,0)
 import System.Posix.Types
 #endif
+#endif
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.IO.Exception ( ioException, IOErrorType(..), IOException(..) )
diff --git a/System/Process/Common.hs b/System/Process/Common.hs
index 5d2e180..0c55ff1 100644
--- a/System/Process/Common.hs
+++ b/System/Process/Common.hs
@@ -1,8 +1,7 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE RecordWildCards #-}
 module System.Process.Common
-    ( CGid (..)
-    , CreateProcess (..)
+    ( CreateProcess (..)
     , CmdSpec (..)
     , StdStream (..)
     , ProcessHandle(..)
@@ -17,6 +16,13 @@ module System.Process.Common
     , mbFd
     , mbPipe
     , pfdToHandle
+
+-- Avoid a warning on Windows
+#ifdef WINDOWS
+    , CGid (..)
+#else
+    , CGid
+#endif
     ) where
 
 import Control.Concurrent



More information about the ghc-commits mailing list