diff --git a/lsp/src/Language/LSP/Server/Processing.hs b/lsp/src/Language/LSP/Server/Processing.hs index 7d7685df..432257b7 100644 --- 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