[Git][ghc/ghc][wip/T25647] Add missing implicit variable bindings to HsOuterExplicit in ExactPrint instance

[Patrick (@soulomoon)]

Patrick pushed to branch wip/T25647 at Glasgow Haskell Compiler / GHC


Commits:
cdd9232c by Patrick at 2025-03-09T23:43:03+08:00
Add missing implicit variable bindings to HsOuterExplicit in ExactPrint instance

- - - - -


1 changed file:

- utils/check-exact/ExactPrint.hs


Changes:

=====================================
utils/check-exact/ExactPrint.hs
=====================================
@@ -4373,17 +4373,17 @@ instance ExactPrint Void where
 
 instance ExactPrintTVFlag flag => ExactPrint (HsOuterTyVarBndrs flag GhcPs) where
   getAnnotationEntry (HsOuterImplicit _) = NoEntryVal
-  getAnnotationEntry (HsOuterExplicit an _) = fromAnn an
+  getAnnotationEntry (HsOuterExplicit an _ _) = fromAnn an
 
   setAnnotationAnchor (HsOuterImplicit a) _ _ _ = HsOuterImplicit a
-  setAnnotationAnchor (HsOuterExplicit an a) anc ts cs = HsOuterExplicit (setAnchorEpa an anc ts cs) a
+  setAnnotationAnchor (HsOuterExplicit an a b) anc ts cs = HsOuterExplicit (setAnchorEpa an anc ts cs) a b
 
   exact b@(HsOuterImplicit _) = pure b
-  exact (HsOuterExplicit (EpAnn l (f,d) cs) bndrs) = do
+  exact (HsOuterExplicit (EpAnn l (f,d) cs) bndrs imps) = do
     f' <- markEpUniToken f
     bndrs' <- markAnnotated bndrs
     d' <- markEpToken d
-    return (HsOuterExplicit (EpAnn l (f',d') cs) bndrs')
+    return (HsOuterExplicit (EpAnn l (f',d') cs) bndrs' imps)
 
 -- ---------------------------------------------------------------------
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/cdd9232c1cfc4f7db894de0b17d3ce808c5147c4
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/20250309/bb9c6009/attachment-0001.html>