Refined the progress message to use T.intercalate for better readability and consistency. This change enhances the clarity of the setup messages by properly formatting the list of cradles and log file paths.

Author: soulomoon

ghcide/session-loader/Development/IDE/Session.hs

@@ -661,8 +661,8 @@ loadSessionWithOptions recorder SessionLoadingOptions{..} rootDir que = do
             logWith recorder Info $ LogCradlePaths lfpLogs
             cradles <- mapM (\(hieYaml, _) -> loadCradle recorder hieYaml rootDir) hyCfpList
             when optTesting $ mRunLspT lspEnv $ mapM_ (\(_, cfp) -> sendNotification (SMethod_CustomMethod (Proxy @"ghcide/cradle/loaded")) (toJSON cfp)) hyCfpList
-            let progMsg = "Setting up " <> T.pack (show (takeBaseName . cradleRootDir <$> cradles))
-                         <> " (for " <> T.pack (show lfpLogs) <> ")"
+            let progMsg = "Setting up " <> T.intercalate "," (T.pack . takeBaseName . cradleRootDir <$> cradles)
+                         <> " (for " <> T.intercalate "," (T.pack <$> lfpLogs) <> ")"
             eoptsList <- mRunLspTCallback lspEnv (\act -> withIndefiniteProgress progMsg Nothing NotCancellable (const act)) $
                 do old_files <- readIORef cradle_files
                    res <- cradleToOptsAndLibDirs recorder (sessionLoading clientConfig) (zip cradles hyCfpList) old_files