Common completer

Author: vidit-od

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Completion/Data.hs

@@ -181,7 +181,7 @@ libExecTestBenchCommons st =
       ("hs-source-dirs:", directoryCompleter),
       ("default-extensions:", constantCompleter $ map (T.pack . prettyShow) allExtensions),
       ("other-extensions:", constantCompleter $ map (T.pack . prettyShow) allExtensions),
-      ("default-language:", constantCompleter ["GHC2021", "Haskell2010", "Haskell98"]),
+      ("default-language:", defaultLanguageCompleter),
       ("other-languages:", noopCompleter),
       ("build-tool-depends:", noopCompleter),
       ("buildable:", constantCompleter ["True", "False"]),
@@ -243,7 +243,7 @@ customSetupFields =
     [ ("setup-depends:", noopCompleter)
     , ("build-depends:", noopCompleter)
     , ("build-tools:", noopCompleter)
-    , ("default-language:", constantCompleter ["GHC2021", "Haskell2010", "Haskell98"])
+    , ("default-language:", defaultLanguageCompleter)
     ]
 
 -- | Returns all possible language extensions including disabled ones.
@@ -319,3 +319,6 @@ weightedLicenseNames =
 
 ghcOptions :: [T.Text]
 ghcOptions = map T.pack $ flagsForCompletion False
+
+defaultLanguageCompleter :: Completer
+defaultLanguageCompleter = constantCompleter ["GHC2021", "Haskell2010", "Haskell98"]