Progress reporting (#398)

haskell · Sep 13, 2020 · 34eff96 · 34eff96
1 parent 3815d24
commit 34eff96
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/plugins/default/src/Ide/Plugin/Eval.hs b/plugins/default/src/Ide/Plugin/Eval.hs
@@ -75,7 +75,7 @@ import           GhcPlugins                     (defaultLogActionHPutStrDoc,
 import           HscTypes
 import           Ide.Plugin
 import           Ide.Types
-import           Language.Haskell.LSP.Core      (LspFuncs (getVirtualFileFunc))
+import           Language.Haskell.LSP.Core
 import           Language.Haskell.LSP.Types
 import           Language.Haskell.LSP.VFS       (virtualFileText)
 import           Outputable (ppr, showSDoc)
@@ -166,7 +166,7 @@ data EvalParams = EvalParams
   deriving (Eq, Show, Generic, FromJSON, ToJSON)
 
 runEvalCmd :: CommandFunction EvalParams
-runEvalCmd lsp state EvalParams {..} = response' $ do
+runEvalCmd lsp state EvalParams {..} = withIndefiniteProgress lsp "Eval" Cancellable $ response' $ do
   let TextDocumentIdentifier {_uri} = module_
   fp <- handleMaybe "uri" $ uriToFilePath' _uri
   contents <- liftIO $ getVirtualFileFunc lsp $ toNormalizedUri _uri