@@ -753,15 +753,15 @@ executeCodeAction action = do
753
753
let req = TRequestMessage " " (IdInt 0 ) SMethod_WorkspaceApplyEdit (ApplyWorkspaceEditParams Nothing e)
754
754
in updateState (FromServerMess SMethod_WorkspaceApplyEdit req)
755
755
756
- -- | Resolves the provided code action.
756
+ -- | Resolves the provided code action.
757
757
resolveCodeAction :: CodeAction -> Session CodeAction
758
758
resolveCodeAction ca = do
759
759
rsp <- request SMethod_CodeActionResolve ca
760
760
case rsp ^. L. result of
761
761
Right ca -> return ca
762
762
Left er -> throw (UnexpectedResponseError (SomeLspId $ fromJust $ rsp ^. L. id ) er)
763
763
764
- {- | If a code action contains a _data_ field: resolves the code action, then
764
+ {- | If a code action contains a _data_ field: resolves the code action, then
765
765
executes it. Otherwise, just executes it.
766
766
-}
767
767
resolveAndExecuteCodeAction :: CodeAction -> Session ()
@@ -821,7 +821,7 @@ getAndResolveCompletions doc pos = do
821
821
items <- getCompletions doc pos
822
822
for items $ \ item -> if isJust (item ^. L. data_) then resolveCompletion item else pure item
823
823
824
- -- | Resolves the provided completion item.
824
+ -- | Resolves the provided completion item.
825
825
resolveCompletion :: CompletionItem -> Session CompletionItem
826
826
resolveCompletion ci = do
827
827
rsp <- request SMethod_CompletionItemResolve ci
@@ -956,7 +956,7 @@ getAndResolveCodeLenses tId = do
956
956
codeLenses <- getCodeLenses tId
957
957
for codeLenses $ \ codeLens -> if isJust (codeLens ^. L. data_) then resolveCodeLens codeLens else pure codeLens
958
958
959
- -- | Resolves the provided code lens.
959
+ -- | Resolves the provided code lens.
960
960
resolveCodeLens :: CodeLens -> Session CodeLens
961
961
resolveCodeLens cl = do
962
962
rsp <- request SMethod_CodeLensResolve cl
0 commit comments