recursion-ninja pushed to branch wip/fix-26670 at Glasgow Haskell Compiler / GHC Commits: 74ac93ee by recursion-ninja at 2025-12-18T19:01:51+00:00 Apply 1 suggestion(s) to 1 file(s) Co-authored-by: sheaf - - - - - 1 changed file: - compiler/GHC/Types/InlinePragma.hs Changes: ===================================== compiler/GHC/Types/InlinePragma.hs ===================================== @@ -106,9 +106,17 @@ import Data.Data import Language.Haskell.Syntax.Binds.InlinePragma import Language.Haskell.Syntax.Extension -data InlinePragmaGhcTag = InlinePragmaGhcTag - { inl_ghcrn_src :: {-# UNPACK#-} !SourceText - , inl_ghcrn_arity :: {-# UNPACK#-} !Arity +data XInlinePragmaGhc = XInlinePragmaGhc + { xinl_src :: SourceText + -- ^ See Note [Pragma source text] + , xinl_sat :: Maybe Arity + -- ^ @Just n@ <=> Inline only when applied to @n@ explicit + -- (non-type, non-dictionary) arguments. + -- + -- That is, 'xinl_sat' describes the number of *source-code* + -- arguments the thing must be applied to. We add on the + -- number of implicit, dictionary arguments when making + -- the Unfolding, and don't look at inl_sat further } deriving (Eq, Data) View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/74ac93ee37f1c8e390ca84b1b2966981... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/74ac93ee37f1c8e390ca84b1b2966981... You're receiving this email because of your account on gitlab.haskell.org.