X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FMessages.hs;h=02fa7fc41dd2f6e7dec83cfd3a9cfc59d3a0694a;hb=12f6e7e7c1d2603712de134477a470bfa72ecf4b;hp=fd568c0b07ae61aad5c5a646ced7c21306db5f43;hpb=208679fa3a42e2a81bc778218bab6376bd6f42d1;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs
index fd568c0..02fa7fc 100644
--- 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
@@ -81,6 +82,11 @@ 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
     (NotPublishDiagnostics       m) -> notification m
     (NotLogMessage               m) -> notification m
     (NotShowMessage              m) -> notification m
@@ -117,6 +123,11 @@ handleClientMessage request response notification msg = case msg of
  (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 +140,5 @@ handleClientMessage request response notification msg = case msg of
  (NotWillSaveTextDocument     m) -> notification m
  (NotDidSaveTextDocument      m) -> notification m
  (NotDidChangeWatchedFiles    m) -> notification m
+ (NotDidChangeWorkspaceFolders m) -> notification m
  (UnknownFromClientMessage    m) -> error $ "Unknown message sent from client: " ++ show m