From: Pepe Iborra <pepeiborra@gmail.com>
Date: Sat, 5 Sep 2020 22:54:29 +0000 (+0100)
Subject: Handle CustomClientMethod
X-Git-Tag: 0.11.0.5~1^2
X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=d755a0a431e88fe5c4b2a62743ee78c3a51a55e5

Handle CustomClientMethod
---

diff --git a/src/Language/Haskell/LSP/Test/Decoding.hs b/src/Language/Haskell/LSP/Test/Decoding.hs
index 8805976..350b525 100644
--- a/src/Language/Haskell/LSP/Test/Decoding.hs
+++ b/src/Language/Haskell/LSP/Test/Decoding.hs
@@ -116,6 +116,7 @@ matchResponseMsgType req = case req of
   TextDocumentDocumentLink      -> RspDocumentLink . decoded
   DocumentLinkResolve           -> RspDocumentLinkResolve . decoded
   TextDocumentWillSaveWaitUntil -> RspWillSaveWaitUntil . decoded
+  CustomClientMethod{}          -> RspCustomServer . decoded
   x                             -> error . ((show x ++ " is not a request: ") ++) . show
   where decoded x = fromMaybe (error $ "Couldn't decode response for the request type: "
                                         ++ show req ++ "\n" ++ show x)