projects
/
opengl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4dce117
)
Enable/disable dynamic registration in caps past 3.0
author
Luke Lau
<luke_lau@icloud.com>
Tue, 31 Jul 2018 16:43:49 +0000
(17:43 +0100)
committer
Luke Lau
<luke_lau@icloud.com>
Tue, 31 Jul 2018 16:43:49 +0000
(17:43 +0100)
src/Language/Haskell/LSP/Test/Capabilities.hs
patch
|
blob
|
history
diff --git
a/src/Language/Haskell/LSP/Test/Capabilities.hs
b/src/Language/Haskell/LSP/Test/Capabilities.hs
index 9947906c4685a521c818de8a027ac3dc9e079a92..96d5b6708f66222c69f34e0b8d0ff31f468a27df 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Capabilities.hs
+++ b/
src/Language/Haskell/LSP/Test/Capabilities.hs
@@
-13,41
+13,45
@@
data LSPVersion = LSPVersion Int -- ^ Major
Int -- ^ Minor
-- | Capabilities for full conformance to the LSP specification up until a version.
Int -- ^ Minor
-- | Capabilities for full conformance to the LSP specification up until a version.
+-- Some important milestones:
+--
+-- * 3.8 codeAction literals
+-- * 3.0 dynamic registration
capsForVersion :: LSPVersion -> ClientCapabilities
capsForVersion (LSPVersion maj min) = ClientCapabilities (Just w) (Just td) Nothing
where
w = WorkspaceClientCapabilities
(Just True)
(Just (WorkspaceEditClientCapabilities (Just True)))
capsForVersion :: LSPVersion -> ClientCapabilities
capsForVersion (LSPVersion maj min) = ClientCapabilities (Just w) (Just td) Nothing
where
w = WorkspaceClientCapabilities
(Just True)
(Just (WorkspaceEditClientCapabilities (Just True)))
- (Just (DidChangeConfigurationClientCapabilities
(Just True)
))
- (Just (DidChangeWatchedFilesClientCapabilities
(Just True)
))
- (Just (SymbolClientCapabilities
(Just True)
))
- (Just (ExecuteClientCapabilities
(Just True)
))
+ (Just (DidChangeConfigurationClientCapabilities
dynamicReg
))
+ (Just (DidChangeWatchedFilesClientCapabilities
dynamicReg
))
+ (Just (SymbolClientCapabilities
dynamicReg
))
+ (Just (ExecuteClientCapabilities
dynamicReg
))
td = TextDocumentClientCapabilities
(Just sync)
(Just (CompletionClientCapabilities
td = TextDocumentClientCapabilities
(Just sync)
(Just (CompletionClientCapabilities
- (Just True)
+ dynamicReg
(Just (CompletionItemClientCapabilities (Just True)))))
(Just (CompletionItemClientCapabilities (Just True)))))
- (Just (HoverClientCapabilities
(Just True)
))
- (Just (SignatureHelpClientCapabilities
(Just True)
))
- (Just (ReferencesClientCapabilities
(Just True)
))
- (Just (DocumentHighlightClientCapabilities
(Just True)
))
- (Just (DocumentSymbolClientCapabilities
(Just True)
))
+ (Just (HoverClientCapabilities
dynamicReg
))
+ (Just (SignatureHelpClientCapabilities
dynamicReg
))
+ (Just (ReferencesClientCapabilities
dynamicReg
))
+ (Just (DocumentHighlightClientCapabilities
dynamicReg
))
+ (Just (DocumentSymbolClientCapabilities
dynamicReg
))
(Just (FormattingClientCapabilities (Just True)))
(Just (FormattingClientCapabilities (Just True)))
- (Just (RangeFormattingClientCapabilities
(Just True)
))
- (Just (OnTypeFormattingClientCapabilities
(Just True)
))
- (Just (DefinitionClientCapabilities
(Just True)
))
+ (Just (RangeFormattingClientCapabilities
dynamicReg
))
+ (Just (OnTypeFormattingClientCapabilities
dynamicReg
))
+ (Just (DefinitionClientCapabilities
dynamicReg
))
(Just codeAction)
(Just codeAction)
- (Just (CodeLensClientCapabilities
(Just True)
))
- (Just (DocumentLinkClientCapabilities
(Just True)
))
- (Just (RenameClientCapabilities
(Just True)
))
+ (Just (CodeLensClientCapabilities
dynamicReg
))
+ (Just (DocumentLinkClientCapabilities
dynamicReg
))
+ (Just (RenameClientCapabilities
dynamicReg
))
sync = SynchronizationTextDocumentClientCapabilities
sync = SynchronizationTextDocumentClientCapabilities
- (Just True)
+ dynamicReg
(Just True)
(Just True)
(Just True)
codeAction = CodeActionClientCapabilities
(Just True)
(Just True)
(Just True)
codeAction = CodeActionClientCapabilities
- (Just True)
+ dynamicReg
codeActionLiterals
codeActionLiterals
| maj >= 3 && min >= 8 = Just (CodeActionLiteralSupport kinds)
codeActionLiterals
codeActionLiterals
| maj >= 3 && min >= 8 = Just (CodeActionLiteralSupport kinds)
@@
-61,3
+65,6
@@
capsForVersion (LSPVersion maj min) = ClientCapabilities (Just w) (Just td) Noth
, CodeActionSource
, CodeActionSourceOrganizeImports
])
, CodeActionSource
, CodeActionSourceOrganizeImports
])
+ dynamicReg
+ | maj >= 3 = Just True
+ | otherwise = Nothing