@@ -412,9 +412,11 @@ shakeRun IdeState{shakeExtras=ShakeExtras{..}, ..} acts =
412412 let logMsg = logDebug logger $ T.pack $
413413 "Finishing shakeRun (took " ++ showDuration runTime ++ ", " ++ res' ++ profile ++ ")"
414414 return (fst <$> res, logMsg)
415− let wrapUp (res, logMsg) = do
416− () <- logMsg
415+ let wrapUp (res, _) = do
417416 either (throwIO @SomeException) return res
417+ _ <- async $ do
418+ (_, logMsg) <- wait aThread
419+ logMsg
418420 pure (cancel aThread, wrapUp =<< wait aThread))
419421
420422getDiagnostics :: IdeState -> IO [FileDiagnostic]