diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/SpecConstr.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/SpecConstr.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Core/Opt/SpecConstr.hs b/compiler/GHC/Core/Opt/SpecConstr.hs index 30645a0259..ab36ad8f22 100644 --- a/compiler/GHC/Core/Opt/SpecConstr.hs +++ b/compiler/GHC/Core/Opt/SpecConstr.hs @@ -31,7 +31,7 @@ import GHC.Core.DataCon import GHC.Core.Coercion hiding( substCo ) import GHC.Core.Rules import GHC.Core.Type hiding ( substTy ) -import GHC.Core.TyCon ( tyConName ) +import GHC.Core.TyCon ( tyConUnique ) import GHC.Core.Multiplicity import GHC.Types.Id import GHC.Core.Ppr ( pprParendExpr ) @@ -56,7 +56,7 @@ import GHC.Types.Unique.FM import GHC.Utils.Monad import Control.Monad ( zipWithM ) import Data.List -import GHC.Builtin.Names ( specTyConName ) +import GHC.Builtin.Names ( specTyConKey ) import GHC.Unit.Module import Data.Ord( comparing ) @@ -983,7 +983,7 @@ forceSpecArgTy env ty forceSpecArgTy env ty | Just (tycon, tys) <- splitTyConApp_maybe ty , tycon /= funTyCon - = tyConName tycon == specTyConName + = tyConUnique tycon == specTyConKey || any (forceSpecArgTy env) tys forceSpecArgTy _ _ = False |