From e32fc6c2a64bbd3733dbb640a6e615b2e94cd4a8 Mon Sep 17 00:00:00 2001
From: Michael Peyton Jones <me@michaelpj.com>
Date: Sun, 8 Oct 2023 22:49:36 +0100
Subject: [PATCH] Log the initial config we get from the initialize request

---
 lsp/src/Language/LSP/Server/Processing.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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