projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update version of lsp
[lsp-test.git]
/
src
/
Language
/
LSP
/
Test.hs
diff --git
a/src/Language/LSP/Test.hs
b/src/Language/LSP/Test.hs
index 4447373b78955e5fb4b1d6c196f4af4622297d7e..9d7c020c1bc487344468067d6dce581310389855 100644
(file)
--- a/
src/Language/LSP/Test.hs
+++ b/
src/Language/LSP/Test.hs
@@
-366,7
+366,7
@@
sendNotification method params =
IsClientEither -> sendMessage (NotMess $ NotificationMessage "2.0" method params)
-- | Sends a response to the server.
IsClientEither -> sendMessage (NotMess $ NotificationMessage "2.0" method params)
-- | Sends a response to the server.
-sendResponse :: ToJSON (Response
Params
m) => ResponseMessage m -> Session ()
+sendResponse :: ToJSON (Response
Result
m) => ResponseMessage m -> Session ()
sendResponse = sendMessage
-- | Returns the initialize response that was received from the server.
sendResponse = sendMessage
-- | Returns the initialize response that was received from the server.
@@
-642,7
+642,7
@@
getImplementations :: TextDocumentIdentifier -- ^ The document the term is in.
getImplementations = getDeclarationyRequest STextDocumentImplementation ImplementationParams
getImplementations = getDeclarationyRequest STextDocumentImplementation ImplementationParams
-getDeclarationyRequest :: (Response
Params
m ~ (Location |? (List Location |? List LocationLink)))
+getDeclarationyRequest :: (Response
Result
m ~ (Location |? (List Location |? List LocationLink)))
=> SClientMethod m
-> (TextDocumentIdentifier
-> Position
=> SClientMethod m
-> (TextDocumentIdentifier
-> Position
@@
-683,7
+683,7
@@
getHighlights doc pos =
-- | Checks the response for errors and throws an exception if needed.
-- Returns the result if successful.
-- | Checks the response for errors and throws an exception if needed.
-- Returns the result if successful.
-getResponseResult :: ResponseMessage m -> Response
Params
m
+getResponseResult :: ResponseMessage m -> Response
Result
m
getResponseResult rsp =
case rsp ^. result of
Right x -> x
getResponseResult rsp =
case rsp ^. result of
Right x -> x