Expose SymbolKind in hover extensions

fwcd · Dec 8, 2024 · 178dda2 · 178dda2
1 parent 619a9b4
commit 178dda2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Curry/LanguageServer/Handlers/TextDocument/Hover.hs b/src/Curry/LanguageServer/Handlers/TextDocument/Hover.hs
@@ -87,6 +87,7 @@ extensionHover store ast@(moduleIdentifier -> mid) pos@(J.Position l c) uri e =
                              , ("type", fromMaybe "" ((.printedType) =<< symbol))
                              , ("identifier", maybe "" (.ident) symbol)
                              , ("module", maybe "" symbolParentIdent symbol)
+                             , ("symbolKind", maybe "" (T.pack . show . (.kind)) symbol)
                              ] :: [(T.Text, T.Text)]
             applyParam p   = T.replace ("{" <> p <> "}")
             evalTemplate t = foldr (uncurry applyParam) t templateParams