Fix

michaelpj · michaelpj · commit 18a0d94710e0 · 2023-07-31T10:19:46.000+01:00
diff --git a/plugins/hls-refactor-plugin/test/Main.hs b/plugins/hls-refactor-plugin/test/Main.hs
@@ -1732,7 +1732,7 @@ suggestImportTests = testGroup "suggest import actions"
 suggestAddRecordFieldImportTests :: TestTree
 suggestAddRecordFieldImportTests = testGroup "suggest imports of record fields when using OverloadedRecordDot"
   [ testGroup "The field is suggested when an instance resolution failure occurs"
-    [ ignoreFor (BrokenForGHC [GHC810, GHC90, GHC94, GHC96]) "Extension not present <9.2, and the assist is derived from the help message in >=9.4" theTest
+    [ ignoreFor (BrokenForGHC [GHC90, GHC94, GHC96]) "Extension not present <9.2, and the assist is derived from the help message in >=9.4" theTest
     ]
   ]
   where
diff --git a/test/functional/Completion.hs b/test/functional/Completion.hs
@@ -387,4 +387,4 @@ compls `shouldNotContainCompl` lbl =
     @? "Should not contain completion: " ++ show lbl
 
 expectFailIfBeforeGhc92 :: String -> TestTree -> TestTree
-expectFailIfBeforeGhc92 = knownBrokenForGhcVersions [GHC810, GHC90]
+expectFailIfBeforeGhc92 = knownBrokenForGhcVersions [GHC90]

Original file line number	Diff line number	Diff line change
`@@ -1732,7 +1732,7 @@ suggestImportTests = testGroup "suggest import actions"`
`1732`	`1732`	`suggestAddRecordFieldImportTests :: TestTree`
`1733`	`1733`	`suggestAddRecordFieldImportTests = testGroup "suggest imports of record fields when using OverloadedRecordDot"`
`1734`	`1734`	`[ testGroup "The field is suggested when an instance resolution failure occurs"`
`1735`		`- [ ignoreFor (BrokenForGHC [GHC810, GHC90, GHC94, GHC96]) "Extension not present <9.2, and the assist is derived from the help message in >=9.4" theTest`
	`1735`	`+ [ ignoreFor (BrokenForGHC [GHC90, GHC94, GHC96]) "Extension not present <9.2, and the assist is derived from the help message in >=9.4" theTest`
`1736`	`1736`	`]`
`1737`	`1737`	`]`
`1738`	`1738`	`where`