report indexing in another thread

Author: soulomoon

ghcide/src/Development/IDE/Core/Compile.hs

@@ -927,9 +927,9 @@ indexHieFile se mod_summary srcPath !hash hf = do
           -- Using `finally`, so even if an exception happen during withHieDb call,
           -- the the ending part of `reportProgress` (which clean the progress indicator) will still be called.
           indexDoneB <- liftIO newBarrier
-          withAsync (reportProgress indexDoneB optProgressStyle) $ \preAsync ->
-            flip finally (signalBarrier indexDoneB ()) $
-                withHieDb (\db -> HieDb.addRefsFromLoaded db targetPath (HieDb.RealFile $ fromNormalizedFilePath srcPath) hash hf')
+          _ <- async (reportProgress indexDoneB optProgressStyle)
+          flip finally (signalBarrier indexDoneB ()) $
+            withHieDb (\db -> HieDb.addRefsFromLoaded db targetPath (HieDb.RealFile $ fromNormalizedFilePath srcPath) hash hf')
     where
     mod_location    = ms_location mod_summary
     targetPath      = Compat.ml_hie_file mod_location