[Git][ghc/ghc][wip/jade/ast] cleaned remnant AmbiguousFieldOcc -> UpdFieldOcc

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

Hassan Al-Awwadi pushed to branch wip/jade/ast at Glasgow Haskell Compiler / GHC


Commits:
69e564bf by Hassan Al-Awwadi at 2024-10-01T13:40:16+02:00
cleaned remnant AmbiguousFieldOcc -> UpdFieldOcc

- - - - -


1 changed file:

- utils/check-exact/ExactPrint.hs


Changes:

=====================================
utils/check-exact/ExactPrint.hs
=====================================
@@ -53,6 +53,7 @@ import GHC.Utils.Outputable hiding ( (<>) )
 import GHC.Utils.Panic
 
 import Language.Haskell.Syntax.Basic (FieldLabelString(..))
+import Language.Haskell.Syntax.Type (UpdFieldOcc(..), FieldOcc(..))
 
 import Control.Monad (forM, when, unless)
 import Control.Monad.Identity (Identity(..))
@@ -4591,11 +4592,10 @@ instance ExactPrint (FieldOcc GhcPs) where
 
 -- ---------------------------------------------------------------------
 
-instance ExactPrint (AmbiguousFieldOcc GhcPs) where
+instance ExactPrint (UpdFieldOcc GhcPs) where
   getAnnotationEntry = const NoEntryVal
   setAnnotationAnchor a _ _ _ = a
-  exact f@(Unambiguous _ n) = markAnnotated n >> return f
-  exact f@(Ambiguous   _ n) = markAnnotated n >> return f
+  exact f@(UpdFieldOcc _ n) = markAnnotated n >> return f
 
 -- ---------------------------------------------------------------------
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/69e564bf991d6188cfa021c837d4e2c747e9b38a
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/20241001/a1f01f15/attachment-0001.html>