Update Hls.hs

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

Author: soulomoon

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

@@ -353,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 (Just [ThreadIdColumn])
+    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