diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2021-11-03 11:07:01 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2021-11-03 11:07:01 +0000 |
| commit | 35c10f0f1885a047f2b3f6fcbf36ff9e057a3fc4 (patch) | |
| tree | 103b938bf68033aaa75c4c71de8ba3dcf7c3d121 | |
| parent | a7e1be3d84d2b7d0515f909175cdfa5dcf0dc55c (diff) | |
| download | haskell-35c10f0f1885a047f2b3f6fcbf36ff9e057a3fc4.tar.gz | |
Make expand_syn a NOINLINE functionwip/T20606
That's what the comments say: see #20606
| -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. |