add basic field constant completions

Author: rm41339

haskell-language-server.cabal

@@ -341,8 +341,8 @@ library hls-cabal-project-plugin
     Ide.Plugin.CabalProject.Diagnostics
     Ide.Plugin.CabalProject.Types
     Ide.Plugin.CabalProject.Completion.Completions
-    Ide.Plugin.CabalProject.Completion.Completer.Simple
-    Ide.Plugin.CabalProject.Completion.Completer.Types
+    -- Ide.Plugin.CabalProject.Completion.Completer.Simple
+    -- Ide.Plugin.CabalProject.Completion.Completer.Types
     Ide.Plugin.CabalProject.Completion.CabalProjectFields
     Ide.Plugin.CabalProject.Completion.Data
 

plugins/hls-cabal-project-plugin/src/Ide/Plugin/CabalProject.hs

@@ -317,8 +317,6 @@ completion recorder ide _ complParams = do
   mContents <- liftIO $ runAction "cabal-project-plugin.getUriContents" ide $ getUriContents $ toNormalizedUri uri
   case (,) <$> mContents <*> uriToFilePath' uri of
     Just (cnts, path) -> do
-      -- We decide on `useWithStale` here, since `useWithStaleFast` often leads to the wrong completions being suggested.
-      -- In case it fails, we still will get some completion results instead of an error.
       mFields <- liftIO $ runAction "cabal-project-plugin.fields" ide $ useWithStale ParseCabalProjectFields $ toNormalizedFilePath path
       case mFields of
         Nothing ->

plugins/hls-cabal-project-plugin/src/Ide/Plugin/CabalProject/Completion/Completer/Simple.hs

@@ -10,8 +10,6 @@ import           Distribution.Client.ProjectConfig.Parsec (ProjectConfigSkeleton
 import qualified Distribution.Fields                      as Syntax
 import qualified Distribution.Parsec.Position             as Syntax
 import           GHC.Generics                             (Generic)
--- import Ide.Plugin.Cabal.Completion.Types
-
 
 type instance RuleResult ParseCabalProjectFile = ProjectConfigSkeleton