Update to current state of progress reporting in LSP

[lsp-test.git] / src / Language / Haskell / LSP / Test / Messages.hs

diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
index fd568c0b07ae61aad5c5a646ced7c21306db5f43..f8b182233f682ad853db4ff1b38aa398e617895e 100644 (file)
--- a/src/Language/Haskell/LSP/Test/Messages.hs
+++ b/src/Language/Haskell/LSP/Test/Messages.hs
@@ -3,7 +3,7 @@ module Language.Haskell.LSP.Test.Messages where
 
 import Data.Aeson
 import Language.Haskell.LSP.Messages
-import Language.Haskell.LSP.Types hiding (error)
+import Language.Haskell.LSP.Types
 
 isServerResponse :: FromServerMessage -> Bool
 isServerResponse (RspInitialize               _) = True
@@ -13,6 +13,7 @@ isServerResponse (RspCompletion               _) = True
 isServerResponse (RspCompletionItemResolve    _) = True
 isServerResponse (RspSignatureHelp            _) = True
 isServerResponse (RspDefinition               _) = True
+isServerResponse (RspTypeDefinition           _) = True
 isServerResponse (RspFindReferences           _) = True
 isServerResponse (RspDocumentHighlights       _) = True
 isServerResponse (RspDocumentSymbols          _) = True
@@ -58,6 +59,8 @@ handleServerMessage request response notification msg = case msg of
     (ReqApplyWorkspaceEdit       m) -> request m
     (ReqShowMessage              m) -> request m
     (ReqUnregisterCapability     m) -> request m
+    (ReqCustomServer             m) -> request m
+    (ReqWorkDoneProgressCreate   m) -> request m
     (RspInitialize               m) -> response m
     (RspShutdown                 m) -> response m
     (RspHover                    m) -> response m
@@ -81,11 +84,21 @@ handleServerMessage request response notification msg = case msg of
     (RspDocumentLink             m) -> response m
     (RspDocumentLinkResolve      m) -> response m
     (RspWillSaveWaitUntil        m) -> response m
+    (RspTypeDefinition           m) -> response m
+    (RspImplementation           m) -> response m
+    (RspDocumentColor            m) -> response m
+    (RspColorPresentation        m) -> response m
+    (RspFoldingRange             m) -> response m
+    (RspCustomServer             m) -> response m
     (NotPublishDiagnostics       m) -> notification m
     (NotLogMessage               m) -> notification m
     (NotShowMessage              m) -> notification m
+    (NotWorkDoneProgressBegin    m) -> notification m
+    (NotWorkDoneProgressReport   m) -> notification m
+    (NotWorkDoneProgressEnd      m) -> notification m
     (NotTelemetry                m) -> notification m
     (NotCancelRequestFromServer  m) -> notification m
+    (NotCustomServer             m) -> notification m
 
 handleClientMessage
     :: forall a.
@@ -112,11 +125,17 @@ handleClientMessage request response notification msg = case msg of
  (ReqDocumentFormatting       m) -> request m
  (ReqDocumentRangeFormatting  m) -> request m
  (ReqDocumentOnTypeFormatting m) -> request m
+ (ReqPrepareRename            m) -> request m
  (ReqRename                   m) -> request m
  (ReqExecuteCommand           m) -> request m
  (ReqDocumentLink             m) -> request m
  (ReqDocumentLinkResolve      m) -> request m
  (ReqWillSaveWaitUntil        m) -> request m
+ (ReqImplementation           m) -> request m
+ (ReqTypeDefinition           m) -> request m
+ (ReqDocumentColor            m) -> request m
+ (ReqColorPresentation        m) -> request m
+ (ReqFoldingRange             m) -> request m
  (RspApplyWorkspaceEdit       m) -> response m
  (RspFromClient               m) -> response m
  (NotInitialized              m) -> notification m
@@ -129,4 +148,7 @@ handleClientMessage request response notification msg = case msg of
  (NotWillSaveTextDocument     m) -> notification m
  (NotDidSaveTextDocument      m) -> notification m
  (NotDidChangeWatchedFiles    m) -> notification m
- (UnknownFromClientMessage    m) -> error $ "Unknown message sent from client: " ++ show m
\ No newline at end of file
+ (NotDidChangeWorkspaceFolders m) -> notification m
+ (NotWorkDoneProgressCancel    m) -> notification m
+ (ReqCustomClient             m) -> request m
+ (NotCustomClient             m) -> notification m