fix

Author: soulomoon

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

@@ -108,6 +108,7 @@ import           System.IO.Extra                   (fixIO, newTempFileWithin)
 -- See Note [Guidelines For Using CPP In GHCIDE Import Statements]
 
 import           GHC.Tc.Gen.Splice
+import           Control.Concurrent.Async (async, withAsync)
 
 
 
@@ -139,7 +140,6 @@ import           GHC.Core.Lint.Interactive
 #if MIN_VERSION_ghc(9,7,0)
 import           Data.Foldable                     (toList)
 import           GHC.Unit.Module.Warnings
-import Control.Concurrent.Async (async, withAsync)
 #else
 import           Development.IDE.Core.FileStore    (shareFilePath)
 #endif
@@ -927,7 +927,7 @@ 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
-          _ <- async (reportProgress indexDoneB optProgressStyle)
+          _ <- liftIO $ async (reportProgress indexDoneB optProgressStyle)
           flip finally (signalBarrier indexDoneB ()) $
             withHieDb (\db -> HieDb.addRefsFromLoaded db targetPath (HieDb.RealFile $ fromNormalizedFilePath srcPath) hash hf')
     where