enable ThreadId for when testing (#4174)

enable ThreadId for when testing

---------

Co-authored-by: fendor <fendor@users.noreply.github.com>

Author: soulomoon

hls-plugin-api/src/Ide/Logger.hs

@@ -27,6 +27,7 @@ module Ide.Logger
   , module PrettyPrinterModule
   , renderStrict
   , toCologActionWithPrio
+  , defaultLoggingColumns
   ) where
 
 import           Colog.Core                    (LogAction (..), Severity,

hls-test-utils/src/Test/Hls.hs

@@ -80,7 +80,7 @@ import           Data.Proxy                         (Proxy (Proxy))
 import qualified Data.Text                          as T
 import qualified Data.Text.Lazy                     as TL
 import qualified Data.Text.Lazy.Encoding            as TL
-import           Development.IDE                    (IdeState)
+import           Development.IDE                    (IdeState, LoggingColumn (ThreadIdColumn))
 import           Development.IDE.Main               hiding (Log)
 import qualified Development.IDE.Main               as Ghcide
 import qualified Development.IDE.Main               as IDEMain
@@ -94,6 +94,7 @@ import           Ide.Logger                         (Pretty (pretty),
                                                      Priority (..), Recorder,
                                                      WithPriority (WithPriority, priority),
                                                      cfilter, cmapWithPrio,
+                                                     defaultLoggingColumns,
                                                      logWith,
                                                      makeDefaultStderrRecorder,
                                                      (<+>))
@@ -348,7 +349,7 @@ pluginTestRecorder = do
 -- See 'runSessionWithServer'' for details.
 initialiseTestRecorder :: Pretty a => [String] -> IO (Recorder (WithPriority a))
 initialiseTestRecorder envVars = do
-    docWithPriorityRecorder <- makeDefaultStderrRecorder Nothing
+    docWithPriorityRecorder <- makeDefaultStderrRecorder (Just $ ThreadIdColumn : defaultLoggingColumns)
     -- There are potentially multiple environment variables that enable this logger
     definedEnvVars <- forM envVars (\var -> fromMaybe "0" <$> lookupEnv var)
     let logStdErr = any (/= "0") definedEnvVars