Add value completion for cabal-version

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

@@ -288,7 +288,10 @@ completion _ide _ complParams = do
  result :: Maybe VFS.PosPrefixInfo -> VirtualFile -> J.List CompletionItem
  result Nothing _ = J.List []
  result (Just pfix) cnts
- | pos ^. JL.line == 0 = J.List [buildCompletion (fst cabalVersionKeyword)]
+ | pos ^. JL.line == 0 = case traceShowId $ context of
+ Just (_, kw)
+ | KeyWord _ <- kw -> J.List $ map buildCompletion $ snd cabalVersionKeyword
+ _ -> J.List [buildCompletion (fst cabalVersionKeyword)]
  | Just ctx <- context = J.List $ makeCompletionItems pfix (getCompletionsForContext ctx)
  | otherwise = J.List []
  where
@@ -328,7 +331,7 @@ getContext :: Position -> [T.Text] -> Maybe Context
 getContext pos ls =
  case lvlContext of
  TopLevel -> do
- kwContext <- getKeyWordContext pos ls cabalKeywords
+ kwContext <- getKeyWordContext pos ls (uncurry Map.insert cabalVersionKeyword cabalKeywords)
  pure (TopLevel, kwContext)
  Stanza s ->
  case Map.lookup (traceShowId s) stanzaKeywordMap of
@@ -480,6 +483,16 @@ stanzaKeywordMap =
  ("lib-version-info:", []),
  ("lib-version-linux:", [])
  ]
+ ),
+ ( "flag",
+ Map.fromList
+ [ ("description:", []),
+ ("default:", ["True", "False"]),
+ ("manual:", ["False", "True"]),
+ ("lib-def-file:", []),
+ ("lib-version-info:", []),
+ ("lib-version-linux:", [])
+ ]
  )
  ]
  where
@@ -501,7 +514,27 @@ stanzaKeywordMap =
  ("ghcjs-prof-options:", []),
  ("ghcjs-shared-options:", []),
  ("includes:", []),
- ("install-includes:", [])
+ ("install-includes:", []),
+ ("include-dirs:", []),
+ ("c-sources:", []),
+ ("cxx-sources:", []),
+ ("asm-sources:", []),
+ ("cmm-sources:", []),
+ ("js-sources:", []),
+ ("extra-libraries:", []),
+ ("extra-ghci-libraries:", []),
+ ("extra-bundled-libraries:", []),
+ ("extra-lib-dirs:", []),
+ ("cc-options:", []),
+ ("cpp-options:", []),
+ ("cxx-options:", []),
+ ("cmm-options:", []),
+ ("asm-options:", []),
+ ("ld-options:", []),
+ ("pkgconfig-depends:", []),
+ ("frameworks:", []),
+ ("extra-framework-dirs:", []),
+ ("mixins:", [])
  ]
 
 -- cabalFlagKeywords :: [(T.Text, T.Text)]