Remove manual parsing in getCompletions

Author: xsebek

ghcide/src/Development/IDE/Plugin/Completions/Logic.hs

@@ -579,23 +579,11 @@ getCompletions
     | Just (ImportHidingContext moduleName) <- maybeContext
     = moduleImportListCompletions moduleName
 
-    -- TODO: Is manual parsing ever needed or is context always present for module?
-    -- If possible only keep the above.
-    | "import " `T.isPrefixOf` fullLine
-    , Just moduleName <- getModuleName fullLine
-    , "(" `T.isInfixOf` fullLine
-    = moduleImportListCompletions $ T.unpack moduleName
-
     -- ------------------------------------------------------------------------
     -- IMPORT MODULENAM|
     | Just (ImportContext _moduleName) <- maybeContext
     = filtImportCompls
 
-    -- TODO: Can we avoid this manual parsing?
-    -- If possible only keep the above.
-    | "import " `T.isPrefixOf` fullLine
-    = filtImportCompls
-
     -- ------------------------------------------------------------------------
     -- {-# LA| #-}
     -- we leave this condition here to avoid duplications and return empty list
@@ -707,10 +695,6 @@ getCompletions
             funs = map (show . name) $ HashSet.toList funcs
         in filterModuleExports moduleName $ map T.pack funs
 
-      -- manually parse in case we don't have completion context ("import [qualified ]ModuleName")
-      getModuleName :: T.Text -> Maybe T.Text
-      getModuleName line = filter (/= "qualified") (T.words line) !? 1
-
       filtImportCompls :: [Scored CompletionItem]
       filtImportCompls = filtListWith (mkImportCompl enteredQual) importableModules