Log the initial config we get from the initialize request

haskell · Oct 8, 2023 · e32fc6c · e32fc6c
1 parent 9b1d6ba
commit e32fc6c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lsp/src/Language/LSP/Server/Processing.hs b/lsp/src/Language/LSP/Server/Processing.hs
@@ -151,7 +151,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