wait using Barrier

Author: soulomoon

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

@@ -942,8 +942,9 @@ indexHieFile se mod_summary srcPath !hash hf = do
             Nothing -> pure Nothing
             Just env -> LSP.runLspT env $ do
               u <- LSP.ProgressToken . LSP.InR . T.pack . show . hashUnique <$> liftIO Unique.newUnique
-              -- TODO: Wait for the progress create response to use the token
-              _ <- LSP.sendRequest LSP.SMethod_WindowWorkDoneProgressCreate (LSP.WorkDoneProgressCreateParams u) (const $ pure ())
+              b <- liftIO newBarrier
+              void $ LSP.sendRequest LSP.SMethod_WindowWorkDoneProgressCreate (LSP.WorkDoneProgressCreateParams u) $ liftIO . signalBarrier b
+              ready <- liftIO $ waitBarrier b
               LSP.sendNotification LSP.SMethod_Progress $ LSP.ProgressParams u $
                 toJSON $ LSP.WorkDoneProgressBegin
                   { _kind = LSP.AString @"begin"