feat: add test and import suggestion for not in scope record field

In ghc 9.6 we had:

```
Not in scope ‘modelStatusTag’
```

In 9.10 we have:

```
Not in scope: record field ‘modelStatusTag’
```

Introducing the new regex in order to match it AND a test to ensure no
future regression.

The regression is due to the fact that there is a matcher which catch
`Nat in scope: .*`, hence it was matching "record" instead of
"modelStatusTag".

Author: guibou

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction.hs

@@ -1870,6 +1870,10 @@ extractNotInScopeName x
   = Just $ NotInScopeThing name
   | Just [_module, name] <- matchRegexUnifySpaces x "No instance for [‘(].*HasField \"[^\"]+\" \\(([^ .]+\\.)*([^ .]+)[^)]*\\).*[’)]"
   = Just $ NotInScopeThing name
+  -- The order of the "Not in scope" is important, for example, some of the
+  -- matcher may catch the "record" value instead of the value later.
+  | Just [name] <- matchRegexUnifySpaces x "Not in scope: record field [^‘]*‘([^’]*)’"
+  = Just $ NotInScopeThing name
   | Just [name] <- matchRegexUnifySpaces x "ot in scope: \\(([^‘ ]+)\\)"
   = Just $ NotInScopeThing name
   | Just [name] <- matchRegexUnifySpaces x "ot in scope: ([^‘ ]+)"

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

@@ -1912,6 +1912,10 @@ suggestAddRecordFieldImportTests = testGroup "suggest imports of record fields w
 extractNotInScopeNameTests :: TestTree
 extractNotInScopeNameTests =
   testGroup "extractNotInScopeName" [
+      testGroup "record field" [
+            testCase ">=ghc 910" $ Refactor.extractNotInScopeName "Not in scope: ‘foo’"  @=? Just (NotInScopeThing "foo"),
+            testCase "<ghc 910" $ Refactor.extractNotInScopeName "Not in scope: record field ‘foo’"  @=? Just (NotInScopeThing "foo")
+            ],
       testGroup "HasField" [
         testGroup "unqualified" [
           testGroup "nice ticks" [