disable debug log in lsp itself

Author: kokobd

ghcide/src/Development/IDE/Core/Shake.hs

@@ -707,7 +707,7 @@ shakeRestart recorder IdeState{..} vfs reason acts =
               queue <- atomicallyNamed "actionQueue - peek" $ peekInProgress $ actionQueue shakeExtras
 
               -- this log is required by tests
-              log Info $ LogBuildSessionRestart reason queue backlog stopTime res
+              log Debug $ LogBuildSessionRestart reason queue backlog stopTime res
         )
         -- It is crucial to be masked here, otherwise we can get killed
         -- between spawning the new thread and updating shakeSession.

ghcide/src/Development/IDE/LSP/LanguageServer.hs

@@ -34,6 +34,8 @@ import           UnliftIO.Concurrent
 import           UnliftIO.Directory
 import           UnliftIO.Exception
 
+import qualified Colog.Core                            as Colog
+import           Control.Monad.IO.Class
 import           Control.Monad.IO.Unlift               (MonadUnliftIO)
 import           Development.IDE.Core.IdeConfiguration
 import           Development.IDE.Core.Shake            hiding (Log, Priority)
@@ -108,10 +110,15 @@ runLanguageServer recorder options inH outH defaultConfig onConfigurationChange
             , LSP.options = modifyOptions options
             }
 
+    let lspCologAction :: MonadIO m2 => Colog.LogAction m2 (Colog.WithSeverity LspServerLog)
+        lspCologAction = toCologActionWithPrio $ cfilter
+            (\msg -> priority msg >= Info)
+            (cmapWithPrio LogLspServer recorder)
+
     void $ untilMVar clientMsgVar $
           void $ LSP.runServerWithHandles
-            (toCologActionWithPrio (cmapWithPrio LogLspServer recorder))
-            (toCologActionWithPrio (cmapWithPrio LogLspServer recorder))
+            lspCologAction
+            lspCologAction
             inH
             outH
             serverDefinition

ghcide/test/exe/Main.hs

@@ -6652,10 +6652,7 @@ runInDir'' lspCaps dir startExeIn startSessionIn extraOptions s = do
 
   shakeProfiling <- getEnv "SHAKE_PROFILING"
   let cmd = unwords $
-       -- With lsp-1.5, verbose logging is causing a lot of deeply nested JSON in ghcide-tests,
-       -- and finally results in OOM on a machine with 64GB RAM.
-       -- I can't find the root cause now.
-       [ghcideExe, "--lsp", "--test", "--verify-core-file", "-j2", "--cwd", startDir
+       [ghcideExe, "--lsp", "--test", "--verify-core-file", "--verbose", "-j2", "--cwd", startDir
        ] ++ ["--shake-profiling=" <> dir | Just dir <- [shakeProfiling]
        ] ++ extraOptions
   -- HIE calls getXgdDirectory which assumes that HOME is set.