From 6f031f598fdccd1b85b8086ac2d07b41e8ef896a Mon Sep 17 00:00:00 2001 From: jneira Date: Thu, 11 Jul 2019 14:16:05 +0200 Subject: [PATCH] Avoid error when trying to shutdown manual js session --- src/Language/Haskell/LSP/Test/Decoding.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Language/Haskell/LSP/Test/Decoding.hs b/src/Language/Haskell/LSP/Test/Decoding.hs index af91928..52c84a4 100644 --- a/src/Language/Haskell/LSP/Test/Decoding.hs +++ b/src/Language/Haskell/LSP/Test/Decoding.hs @@ -94,7 +94,7 @@ getRequestMap = foldl helper HM.empty matchResponseMsgType :: ClientMethod -> B.ByteString -> FromServerMessage matchResponseMsgType req = case req of Initialize -> RspInitialize . decoded - Shutdown -> RspShutdown . decoded + Shutdown -> RspShutdown . decoded . removeNullResult TextDocumentHover -> RspHover . decoded TextDocumentCompletion -> RspCompletion . decoded CompletionItemResolve -> RspCompletionItemResolve . decoded @@ -120,6 +120,7 @@ matchResponseMsgType req = case req of where decoded x = fromMaybe (error $ "Couldn't decode response for the request type: " ++ show req ++ "\n" ++ show x) (decode x) + removeNullResult x = maybe x (<> "}") (B.stripSuffix ",\"result\":null}" x) decodeFromServerMsg :: RequestMap -> B.ByteString -> FromServerMessage decodeFromServerMsg reqMap bytes = -- 2.30.2