let suggest new imports work on symbol operators used infix (#540)

Author: eddiemundo

src/Development/IDE/Plugin/CodeAction.hs

@@ -424,6 +424,8 @@ extractNotInScopeName x
   = Just $ NotInScopeDataConstructor name
   | Just [name] <- matchRegex x "ot in scope: type constructor or class [^‘]*‘([^’]*)’"
   = Just $ NotInScopeTypeConstructorOrClass name
+  | Just [name] <- matchRegex x "ot in scope: \\(([^‘ ]+)\\)"
+  = Just $ NotInScopeThing name
   | Just [name] <- matchRegex x "ot in scope: ([^‘ ]+)"
   = Just $ NotInScopeThing name
   | Just [name] <- matchRegex x "ot in scope:[^‘]*‘([^’]*)’"

test/exe/Main.hs

@@ -966,6 +966,8 @@ suggestImportTests = testGroup "suggest import actions"
     , test True []          "f :: Typeable a => a"        ["f = undefined"] "import Data.Typeable (Typeable)"
     , test True []          "f = pack"                    []                "import Data.Text (pack)"
     , test True []          "f :: Text"                   ["f = undefined"] "import Data.Text (Text)"
+    , test True []          "f = [] & id"                 []                "import Data.Function ((&))"
+    , test True []          "f = (&) [] id"               []                "import Data.Function ((&))"
     ]
   ]
   where