diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-07-30 17:47:09 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-07-30 17:47:09 +0200 |
| commit | acaaed1101f190d0fb8d5ff4d25efe98fad966fa (patch) | |
| tree | 92d5d47b75b8d0d392d09a3b72a0acd841c8e724 | |
| parent | 16589a6ee13cc9816f7d6b78880af3bbae10e6f2 (diff) | |
| download | haskell-acaaed1101f190d0fb8d5ff4d25efe98fad966fa.tar.gz | |
suppress some warnings for now and enable the optsn
| -rw-r--r-- | compiler/simplStg/StgCse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs index c4dabb3c94..91a96eca03 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 |