Looks like RecordWildcards renaming is only broken on GHC 9.6 and 9.8

Author: jhrcek

plugins/hls-rename-plugin/test/Main.hs

@@ -25,7 +25,10 @@ tests = testGroup "Rename"
     [ goldenWithRename "Data constructor" "DataConstructor" $ \doc ->
         rename doc (Position 0 15) "Op"
     , goldenWithRename "Data constructor with fields" "DataConstructorWithFields" $ \doc ->
-        rename doc (Position 2 13) "FooRenamed"
+        rename doc (Position 1 13) "FooRenamed"
+    , knownBrokenForGhcVersions [GHC96, GHC98] "renaming Constructor{..} with RecordWildcard removes .." $
+        goldenWithRename "Data constructor with fields" "DataConstructorWithFieldsRecordWildcards" $ \doc ->
+          rename doc (Position 1 13) "FooRenamed"
     , goldenWithRename "Exported function" "ExportedFunction" $ \doc ->
         rename doc (Position 2 1) "quux"
     , goldenWithRename "Field Puns" "FieldPuns" $ \doc ->

plugins/hls-rename-plugin/test/testdata/DataConstructorWithFields.expected.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE NamedFieldPuns #-}
-{-# LANGUAGE RecordWildCards #-}
 data Foo = FooRenamed { a :: Int, b :: Bool }
 
 foo1 :: Foo
@@ -13,6 +12,3 @@ fun1 FooRenamed {a} = a
 
 fun2 :: Foo -> Int
 fun2 FooRenamed {a = i} = i
-
-fun3 :: Foo -> Int
-fun3 FooRenamed {..} = a

plugins/hls-rename-plugin/test/testdata/DataConstructorWithFields.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE NamedFieldPuns #-}
-{-# LANGUAGE RecordWildCards #-}
 data Foo = Foo { a :: Int, b :: Bool }
 
 foo1 :: Foo
@@ -13,6 +12,3 @@ fun1 Foo {a} = a
 
 fun2 :: Foo -> Int
 fun2 Foo {a = i} = i
-
-fun3 :: Foo -> Int
-fun3 Foo {..} = a

plugins/hls-rename-plugin/test/testdata/DataConstructorWithFieldsRecordWildcards.expected.hs

@@ -0,0 +1,5 @@
+{-# LANGUAGE RecordWildCards #-}
+data Foo = FooRenamed { a :: Int, b :: Bool }
+
+fun :: Foo -> Int
+fun FooRenamed {..} = a

plugins/hls-rename-plugin/test/testdata/DataConstructorWithFieldsRecordWildcards.hs

@@ -0,0 +1,5 @@
+{-# LANGUAGE RecordWildCards #-}
+data Foo = Foo { a :: Int, b :: Bool }
+
+fun :: Foo -> Int
+fun Foo {..} = a