Fix completion test failures for ghc9

With this example:
f asdfgh = asd

it would suggest to complete `asd` into `asd_arNC`,
which seems to be a name it generated because of
deferred-out-of-scope-variables

Author: anka-213

ghcide/src/Development/IDE/Core/Compile.hs

@@ -877,7 +877,7 @@ parseFileContents env customPreprocessor filename ms = do
                   throwE $ diagFromStrings "parser" DsError errs
 
                let preproc_warnings = diagFromStrings "parser" DsWarning preproc_warns
-               parsed' <- liftIO $ applyPluginsParsedResultAction env dflags ms (hpm_annotations) parsed
+               parsed' <- liftIO $ applyPluginsParsedResultAction env dflags ms hpm_annotations parsed
 
                -- To get the list of extra source files, we take the list
                -- that the parser gave us,

ghcide/src/Development/IDE/Spans/LocalBindings.hs

@@ -12,14 +12,18 @@ module Development.IDE.Spans.LocalBindings
 import           Control.DeepSeq
 import           Control.Monad
 import           Data.Bifunctor
-import           Data.IntervalMap.FingerTree (IntervalMap, Interval (..))
-import qualified Data.IntervalMap.FingerTree as IM
-import qualified Data.List as L
-import qualified Data.Map as M
-import qualified Data.Set as S
-import           Development.IDE.GHC.Compat (RefMap, identType, identInfo, getScopeFromContext, getBindSiteFromContext, Scope(..), Name, Type)
+import           Data.IntervalMap.FingerTree    (Interval (..), IntervalMap)
+import qualified Data.IntervalMap.FingerTree    as IM
+import qualified Data.List                      as L
+import qualified Data.Map                       as M
+import qualified Data.Set                       as S
+import           Development.IDE.GHC.Compat     (Name, RefMap, Scope (..), Type,
+                                                 getBindSiteFromContext,
+                                                 getScopeFromContext, identInfo,
+                                                 identType)
 import           Development.IDE.GHC.Error
 import           Development.IDE.Types.Location
+import           Name                           (isSystemName)
 import           NameEnv
 import           SrcLoc
 
@@ -53,7 +57,7 @@ localBindings refmap = bimap mk mk $ unzip $ do
         Just scopes <- pure $ getScopeFromContext info
         scope <- scopes >>= \case
           LocalScope scope -> pure $ realSrcSpanToInterval scope
-          _ -> []
+          _                -> []
         pure ( scope
             , unitNameEnv name (name,ty)
             )
@@ -115,7 +119,8 @@ getDefiningBindings bs rss
 -- This is meant for use with the fuzzy `PositionRange` returned by `PositionMapping`
 getFuzzyScope :: Bindings -> Position -> Position -> [(Name, Maybe Type)]
 getFuzzyScope bs a b
-  = nameEnvElts
+  = filter (not . isSystemName . fst)
+  $ nameEnvElts
   $ foldMap snd
   $ IM.intersections (Interval a b)
   $ getLocalBindings bs