diff options
| -rw-r--r-- | compiler/GHC/Core/Type.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Type.hs b/compiler/GHC/Core/Type.hs index 16688cf287..31d02bbf24 100644 --- a/compiler/GHC/Core/Type.hs +++ b/compiler/GHC/Core/Type.hs @@ -488,7 +488,7 @@ expand_syn arity tvs rhs tys -- because the function part might well return a -- partially-applied type constructor; indeed, usually will! -- We never want to inline this cold-path. -{-# INLINE expand_syn #-} +{-# NOINLINE expand_syn #-} coreFullView :: Type -> Type -- ^ Iterates 'coreView' until there is no more to synonym to expand. |