[Git][ghc/ghc][wip/ttg/types/basic] specialized exactprint of Activation/OverlapMode to be of GhcPs

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

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


Commits:
d265eeea by Hassan Al-Awwadi at 2024-10-29T11:56:29+01:00
specialized exactprint of Activation/OverlapMode to be of GhcPs

- - - - -


1 changed file:

- utils/check-exact/ExactPrint.hs


Changes:

=====================================
utils/check-exact/ExactPrint.hs
=====================================
@@ -2118,13 +2118,13 @@ instance ExactPrint (RuleDecl GhcPs) where
 
 
 markActivationL :: (Monad m, Monoid w)
-  => a -> Lens a ActivationAnn -> Activation (GhcPass p) -> EP w m a
+  => a -> Lens a ActivationAnn -> Activation GhcPs -> EP w m a
 markActivationL a l act = do
   new <- markActivation (view l a) act
   return (set l new a)
 
 markActivation :: (Monad m, Monoid w)
-  => ActivationAnn -> Activation (GhcPass p) -> EP w m ActivationAnn
+  => ActivationAnn -> Activation GhcPs -> EP w m ActivationAnn
 markActivation (ActivationAnn o c t v) act = do
   case act of
     ActiveBefore src phase -> do
@@ -2138,7 +2138,7 @@ markActivation (ActivationAnn o c t v) act = do
       v' <- mapM (\val -> printStringAtAA val (toSourceTextWithSuffix src (show phase) "")) v
       c' <- markEpToken c -- ']'
       return (ActivationAnn o' c' t v')
-    NeverActive -> do
+    NeverActive _ -> do
       o' <- markEpToken o --  '['
       t' <- mapM markEpToken t -- ~
       c' <- markEpToken c -- ']'
@@ -2350,7 +2350,7 @@ instance ExactPrint (TyFamInstDecl GhcPs) where
 
 -- ---------------------------------------------------------------------
 
-instance ExactPrint (LocatedP (OverlapMode (GhcPass p))) where
+instance ExactPrint (LocatedP (OverlapMode GhcPs)) where
   getAnnotationEntry = entryFromLocatedA
   setAnnotationAnchor = setAnchorAn
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d265eeeacc4fe6d3404cedfc3d0ceee03a1955f8
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/20241029/5f0db974/attachment-0001.html>