refactor plugin: fix regex for extracting import suggestions

Author: jhrcek

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

@@ -931,9 +931,9 @@ suggestExtendImport exportsMap (L _ HsModule {hsmodImports}) Diagnostic{_range=_
     | Just [binding, mod, srcspan] <-
       matchRegexUnifySpaces _message
 #if MIN_VERSION_ghc(9,7,0)
-      "Add ‘([^’]*)’ to the import list in the import of ‘([^’]*)’ *\\(at (.*)\\)."
+      "Add ‘([^’]*)’ to the import list in the import of ‘([^’]*)’ *\\(at (.*)\\)\\."
 #else
-      "Perhaps you want to add ‘([^’]*)’ to the import list in the import of ‘([^’]*)’ *\\((.*)\\)."
+      "Perhaps you want to add ‘([^’]*)’ to the import list in the import of ‘([^’]*)’ *\\((.*)\\)\\."
 #endif
     = suggestions hsmodImports binding mod srcspan
     | Just (binding, mod_srcspan) <-

Diff for: plugins/hls-refactor-plugin/test/Main.hs

@@ -1275,6 +1275,20 @@ extendImportTests = testGroup "extend import actions"
                     , "b :: A"
                     , "b = ConstructorFoo"
                     ])
+        , testSession "extend single line import in presence of extra perens" $ template
+            []
+            ("Main.hs", T.unlines
+                    [ "import Data.Monoid (First)"
+                    , "f = (First Nothing) <> mempty" -- parens tripped up the regex extracting import suggestions
+                    ])
+            (Range (Position 1 6) (Position 1 7))
+            [ "Add First(..) to the import list of Data.Monoid"
+            , "Add First(First) to the import list of Data.Monoid"
+            ]
+            (T.unlines
+                    [ "import Data.Monoid (First (..))"
+                    , "f = (First Nothing) <> mempty"
+                    ])
         , brokenForGHC94 "On GHC 9.4, the error messages with -fdefer-type-errors don't have necessary imported target srcspan info." $
           testSession "extend single line qualified import with value" $ template
             [("ModuleA.hs", T.unlines