[commit: ghc] wip/cross-constr-cse: suppress some warnings for now and enable the optsn (acaaed1)

[git at git.haskell.org]

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

On branch  : wip/cross-constr-cse
Link       : http://ghc.haskell.org/trac/ghc/changeset/acaaed1101f190d0fb8d5ff4d25efe98fad966fa/ghc

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

commit acaaed1101f190d0fb8d5ff4d25efe98fad966fa
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Jul 30 17:47:09 2017 +0200

    suppress some warnings for now and enable the optsn


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

acaaed1101f190d0fb8d5ff4d25efe98fad966fa
 compiler/simplStg/StgCse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index c4dabb3..91a96ec 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE TypeFamilies, LambdaCase #-}
+{-# OPTIONS_GHC -Wno-unused-matches -Wno-missing-signatures #-}
 
 {-|
 Note [CSE for Stg]
@@ -113,7 +114,7 @@ newtype ConAppMap a = CAM { un_cam :: DNameEnv (ListMap StgArgMap a) }
 newtype LaxDataCon = Lax DataCon
 
 instance NamedThing LaxDataCon where
-  getName (Lax dc) | False && isVanillaDataCon dc && not hasStrict && not unpacked = mkFCallName uniq "" -- FIXME: is there a better way?
+  getName (Lax dc) | isVanillaDataCon dc && not hasStrict && not unpacked = mkFCallName uniq "" -- FIXME: is there a better way?
     where uniq = mkUniqueGrimily . negate $ dataConTag dc * 1048576 + length (dataConOrigArgTys dc) -- FIXME
           hasStrict = any (\case HsLazy -> False; _ -> True) (dataConImplBangs dc)
           unpacked = isUnboxedTupleCon dc || isUnboxedSumCon dc