[Git][ghc/ghc][wip/ttg/types/basic] use total function to please GHC

[Hassan Al-Awwadi (@hassan.awwadi)]

Hassan Al-Awwadi pushed to branch wip/ttg/types/basic at Glasgow Haskell Compiler / GHC


Commits:
35a66414 by Hassan Al-Awwadi at 2024-10-27T20:58:19+01:00
use total function to please GHC

- - - - -


2 changed files:

- compiler/GHC/Hs/InlinePragma.hs
- compiler/GHC/Tc/Deriv/Generics.hs


Changes:

=====================================
compiler/GHC/Hs/InlinePragma.hs
=====================================
@@ -27,7 +27,7 @@ module GHC.Hs.InlinePragma(
         pprInline, pprInlineDebug,
         convertInlinePragma, convertInlineSpec, convertActivation,
 
-        set_pragma_rule, set_pragma_sat
+        set_pragma_activation, set_pragma_rule, set_pragma_sat
 ) where
 
 import GHC.Prelude


=====================================
compiler/GHC/Tc/Deriv/Generics.hs
=====================================
@@ -377,7 +377,7 @@ mkBindsRep dflags gk loc dit@(DerivInstTys{dit_rep_tc = tycon}) = (binds, sigs)
                max_fields = maximum $ map dataConSourceArity datacons
 
            inline1 f = L loc'' . InlineSig noAnn (L loc' f)
-                     $ alwaysInlinePragma { inl_act = ActiveAfter NoSourceText 1 }
+                     $ set_pragma_activation alwaysInlinePragma (ActiveAfter NoSourceText 1) 
 
         -- The topmost M1 (the datatype metadata) has the exact same type
         -- across all cases of a from/to definition, and can be factored out



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/35a66414c3c75a29e9e95c7eea4e1525d8ef1402

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/35a66414c3c75a29e9e95c7eea4e1525d8ef1402
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241027/988d4f24/attachment-0001.html>