From 3c2211603d766213833f14830c0ced0a0aabed96 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sun, 13 Sep 2020 16:47:37 +0100 Subject: [PATCH] Progress reporting --- plugins/default/src/Ide/Plugin/Eval.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plugins/default/src/Ide/Plugin/Eval.hs b/plugins/default/src/Ide/Plugin/Eval.hs index a6aba8ce16..604f5b8d51 100644 --- 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