enable ThreadId for when testing

Author: soulomoon

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

@@ -92,6 +92,7 @@ import           GHC.IO.Handle
 import           GHC.Stack                          (emptyCallStack)
 import           GHC.TypeLits
 import           Ide.Logger                         (Doc, Logger (Logger),
+                                                     LoggingColumn (ThreadIdColumn),
                                                      Pretty (pretty),
                                                      Priority (..),
                                                      Recorder (Recorder, logger_),
@@ -352,7 +353,7 @@ pluginTestRecorder = do
 -- See 'runSessionWithServer'' for details.
 initialiseTestRecorder :: Pretty a => [String] -> IO (Recorder (WithPriority a), WithPriority (Doc ann) -> IO ())
 initialiseTestRecorder envVars = do
-    docWithPriorityRecorder <- makeDefaultStderrRecorder Nothing
+    docWithPriorityRecorder <- makeDefaultStderrRecorder (Just [ThreadIdColumn])
     -- There are potentially multiple environment variables that enable this logger
     definedEnvVars <- forM envVars (\var -> fromMaybe "0" <$> lookupEnv var)
     let logStdErr = any (/= "0") definedEnvVars