From: Zubin Duggal <zubin@cmi.ac.in>
Date: Mon, 5 Oct 2020 08:12:33 +0000 (+0530)
Subject: use senRequest instead of request_ in executeCommand to avoid gobbling up messages
X-Git-Tag: 0.13.0.0~7^2~10
X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=8c79bbaf4135321c321b5599ada4a370e5dcb50d

use senRequest instead of request_ in executeCommand to avoid gobbling up messages
---

diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs
index 6427dd2..1ed07d5 100644
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@ -543,7 +543,7 @@ executeCommand :: Command -> Session ()
 executeCommand cmd = do
   let args = decode $ encode $ fromJust $ cmd ^. arguments
       execParams = ExecuteCommandParams Nothing (cmd ^. command) args
-  request_ SWorkspaceExecuteCommand execParams
+  void $ sendRequest SWorkspaceExecuteCommand execParams
 
 -- | Executes a code action.
 -- Matching with the specification, if a code action