[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