[feat] syntactic syntactic tokens

Use the GHC AST and lsp semantic tokens to convince the language server
to give highlighting even without any editor highlighting plugins.

Author: MangoIV

plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Internal.hs

@@ -34,6 +34,7 @@ import qualified Data.Map.Strict                          as M
 import           Data.Maybe
 import           Data.Text                                (Text)
 import qualified Data.Text                                as T
+import           Debug.Trace
 import           Development.IDE                          (Action,
                                                            GetDocMap (GetDocMap),
                                                            GetHieAst (GetHieAst),

plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Types.hs

@@ -5,7 +5,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE StrictData        #-}
 {-# LANGUAGE TypeFamilies      #-}
-{-# LANGUAGE DeriveAnyClass #-}
 
 module Ide.Plugin.SemanticTokens.Types where
 
@@ -181,6 +180,7 @@ data SemanticLog
   | LogConfig SemanticTokensConfig
   | LogMsg String
   | LogNoVF
+  | LogSyntacticTokens RangeHsSyntacticTokenTypes
   | LogSemanticTokensDeltaMisMatch Text (Maybe Text)
 
 instance Pretty SemanticLog where
@@ -194,5 +194,4 @@ instance Pretty SemanticLog where
                       -> "SemanticTokensDeltaMisMatch: previousIdFromRequest: " <> pretty previousIdFromRequest
                       <> " previousIdFromCache: " <> pretty previousIdFromCache
     LogDependencyError err -> "SemanticTokens' dependency error: " <> pretty err
-
 type SemanticTokenId = Text