Log the initial config we get from the initialize request

haskell · Oct 8, 2023 · 5bb7a64 · 5bb7a64
1 parent 9b1d6ba
commit 5bb7a64
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lsp/src/Language/LSP/Server/Processing.hs b/lsp/src/Language/LSP/Server/Processing.hs
@@ -66,6 +66,7 @@ import Data.Text.Prettyprint.Doc
 import Language.LSP.Protocol.Lens qualified as L
 import Language.LSP.Protocol.Message
 import Language.LSP.Protocol.Types
+import Language.LSP.Protocol.Utils.Misc
 import Language.LSP.Protocol.Utils.SMethodMap (SMethodMap)
 import Language.LSP.Protocol.Utils.SMethodMap qualified as SMethodMap
 import Language.LSP.Server.Core
@@ -151,7 +152,9 @@ initializeRequestHandler logger ServerDefinition{..} vfs sendFunc req = do
 
     initialConfig <- case configObject of
       Just o -> case parseConfig defaultConfig o of
-        Right newConfig -> pure newConfig
+        Right newConfig -> do
+          liftIO $ logger <& (LspCore $ NewConfig o) `WithSeverity` Debug
+          pure newConfig
         Left err -> do
           -- Warn not error here, since initializationOptions is pretty unspecified
           liftIO $ logger <& (LspCore $ ConfigurationParseError o err) `WithSeverity` Warning