src/Capabilities.hs

   1 module Capabilities where
   2
   3 import Language.Haskell.LSP.TH.ClientCapabilities
   4
   5 capabilities :: ClientCapabilities
   6 capabilities = ClientCapabilities (Just workspaceCapabilities)
   7                                   (Just textDocumentCapabilities)
   8                                   Nothing
   9   where
  10     workspaceCapabilities = WorkspaceClientCapabilities
  11       (Just False)
  12       (Just (WorkspaceEditClientCapabilities (Just False)))
  13       (Just (DidChangeConfigurationClientCapabilities (Just False)))
  14       (Just (DidChangeWatchedFilesClientCapabilities (Just False)))
  15       (Just (SymbolClientCapabilities (Just False)))
  16       (Just (ExecuteClientCapabilities (Just False)))
  17     textDocumentCapabilities = TextDocumentClientCapabilities
  18       (Just
  19         (SynchronizationTextDocumentClientCapabilities (Just False)
  20                                                         (Just False)
  21                                                         (Just False)
  22                                                         (Just False)
  23         )
  24       )
  25       (Just
  26         (CompletionClientCapabilities
  27           (Just False)
  28           (Just (CompletionItemClientCapabilities (Just False)))
  29         )
  30       )
  31       (Just (HoverClientCapabilities (Just False)))
  32       (Just (SignatureHelpClientCapabilities (Just False)))
  33       (Just (ReferencesClientCapabilities (Just False)))
  34       (Just (DocumentHighlightClientCapabilities (Just False)))
  35       (Just (DocumentSymbolClientCapabilities (Just False)))
  36       (Just (FormattingClientCapabilities (Just False)))
  37       (Just (RangeFormattingClientCapabilities (Just False)))
  38       (Just (OnTypeFormattingClientCapabilities (Just False)))
  39       (Just (DefinitionClientCapabilities (Just False)))
  40       (Just (CodeActionClientCapabilities (Just False)))
  41       (Just (CodeLensClientCapabilities (Just False)))
  42       (Just (DocumentLinkClientCapabilities (Just False)))
  43       (Just (RenameClientCapabilities (Just False)))