[commit: packages/process] master: Remove redundant `MIN_VERSION_unix(2, 5, 0)` conditionals (6127c90)

git at git.haskell.org git at git.haskell.org
Sun Oct 20 16:18:00 UTC 2013


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

On branch  : master
Link       : http://git.haskell.org/packages/process.git/commitdiff/6127c90c951a1ec0e3622f89914517cb895e19dd

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

commit 6127c90c951a1ec0e3622f89914517cb895e19dd
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Sun Oct 20 17:13:43 2013 +0200

    Remove redundant `MIN_VERSION_unix(2,5,0)` conditionals
    
    Since ad1a5c88 `process` supports GHC>=7.2 (which implies `unix>=2.5`),
    therefore `MIN_VERSION_unix(2,5,0)` is always true.
    
    Signed-off-by: Herbert Valerio Riedel <hvr at gnu.org>


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

6127c90c951a1ec0e3622f89914517cb895e19dd
 System/Process.hs |    7 -------
 1 file changed, 7 deletions(-)

diff --git a/System/Process.hs b/System/Process.hs
index 2808339..91351e8 100644
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -75,10 +75,8 @@ import Control.DeepSeq (rnf)
 import System.IO.Error (mkIOError, ioeSetErrorString)
 #if !defined(mingw32_HOST_OS)
 import System.Posix.Types
-#if MIN_VERSION_unix(2,5,0)
 import System.Posix.Process (getProcessGroupIDOf)
 #endif
-#endif
 import qualified Control.Exception as C
 import Control.Concurrent
 import Control.Monad
@@ -640,13 +638,8 @@ interruptProcessGroupOf ph = do
 -- on Windows, so on Windows cpp fails:
 -- error: missing binary operator before token "("
 #else
-#if MIN_VERSION_unix(2,5,0)
-                -- getProcessGroupIDOf was added in unix-2.5.0.0
                 pgid <- getProcessGroupIDOf h
                 signalProcessGroup sigINT pgid
-#else
-                signalProcessGroup sigINT h
-#endif
 #endif
                 return ()
 



More information about the ghc-commits mailing list