From d755a0a431e88fe5c4b2a62743ee78c3a51a55e5 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sat, 5 Sep 2020 23:54:29 +0100 Subject: [PATCH] Handle CustomClientMethod --- src/Language/Haskell/LSP/Test/Decoding.hs | 1 + 1 file changed, 1 insertion(+) 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) -- 2.30.2