fix

Author: soulomoon

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

@@ -945,16 +945,15 @@ indexHieFile se mod_summary srcPath !hash hf = do
               u <- LSP.ProgressToken . LSP.InR . T.pack . show . hashUnique <$> liftIO Unique.newUnique
               b <- liftIO newBarrier
               void $ LSP.sendRequest LSP.SMethod_WindowWorkDoneProgressCreate (LSP.WorkDoneProgressCreateParams u) $ liftIO . signalBarrier b
-              liftIO $ async $ do
-                _ready <- waitBarrier b
-                LSP.runLspT env $ LSP.sendNotification LSP.SMethod_Progress $ LSP.ProgressParams u $
-                        toJSON $ LSP.WorkDoneProgressBegin
-                        { _kind = LSP.AString @"begin"
-                        ,  _title = "Indexing"
-                        , _cancellable = Nothing
-                        , _message = Nothing
-                        , _percentage = Nothing
-                        }
+              _ready <- liftIO $ waitBarrier b
+              LSP.runLspT env $ LSP.sendNotification LSP.SMethod_Progress $ LSP.ProgressParams u $
+                      toJSON $ LSP.WorkDoneProgressBegin
+                      { _kind = LSP.AString @"begin"
+                      ,  _title = "Indexing"
+                      , _cancellable = Nothing
+                      , _message = Nothing
+                      , _percentage = Nothing
+                      }
               pure (Just u)
 
       (!done, !remaining) <- atomically $ do