From a576ee3be40fcc0658ec0b7779aabadcfea6ba0c Mon Sep 17 00:00:00 2001 From: Luke Lau Date: Tue, 4 Sep 2018 15:28:20 +0100 Subject: [PATCH] Add remaining handlers for messages --- src/Language/Haskell/LSP/Test/Messages.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/Language/Haskell/LSP/Test/Messages.hs b/src/Language/Haskell/LSP/Test/Messages.hs index 8eb86cd..597a369 100644 --- a/src/Language/Haskell/LSP/Test/Messages.hs +++ b/src/Language/Haskell/LSP/Test/Messages.hs @@ -81,6 +81,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 +122,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 +139,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 -- 2.30.2