[commit: ghc] wip/nfs-locking: Replace GccLt46 with gccGe46 as the former was always used negated. (aff7b3c)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:06:37 UTC 2017


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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/aff7b3c9ee5a06b7c7070f14cecf941ba1c2820d/ghc

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

commit aff7b3c9ee5a06b7c7070f14cecf941ba1c2820d
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sat Aug 22 21:41:21 2015 +0100

    Replace GccLt46 with gccGe46 as the former was always used negated.


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

aff7b3c9ee5a06b7c7070f14cecf941ba1c2820d
 src/Oracles/Config/Flag.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Oracles/Config/Flag.hs b/src/Oracles/Config/Flag.hs
index 737af97..80d8c6a 100644
--- a/src/Oracles/Config/Flag.hs
+++ b/src/Oracles/Config/Flag.hs
@@ -1,6 +1,6 @@
 module Oracles.Config.Flag (
     Flag (..), flag,
-    crossCompiling, gccIsClang, gccLt46,
+    crossCompiling, gccIsClang, gccGe46,
     platformSupportsSharedLibs, ghcWithSMP, ghcWithNativeCodeGen
     ) where
 
@@ -39,8 +39,8 @@ crossCompiling = flag CrossCompiling
 gccIsClang :: Action Bool
 gccIsClang = flag GccIsClang
 
-gccLt46 :: Action Bool
-gccLt46 = flag GccLt46
+gccGe46 :: Action Bool
+gccGe46 = fmap not $ flag GccLt46
 
 platformSupportsSharedLibs :: Action Bool
 platformSupportsSharedLibs = do



More information about the ghc-commits mailing list