From 07870d42a26f958a6f976a1a873fcdddb5ba52eb Mon Sep 17 00:00:00 2001 From: jneira Date: Thu, 11 Jul 2019 23:08:58 +0200 Subject: [PATCH] Revert "Avoid error when trying to shutdown manual js session" This reverts commit 6f031f598fdccd1b85b8086ac2d07b41e8ef896a. --- src/Language/Haskell/LSP/Test/Decoding.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Language/Haskell/LSP/Test/Decoding.hs b/src/Language/Haskell/LSP/Test/Decoding.hs index 52c84a4..af91928 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 . removeNullResult + Shutdown -> RspShutdown . decoded TextDocumentHover -> RspHover . decoded TextDocumentCompletion -> RspCompletion . decoded CompletionItemResolve -> RspCompletionItemResolve . decoded @@ -120,7 +120,6 @@ 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