X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest.hs;fp=src%2FLanguage%2FHaskell%2FLSP%2FTest.hs;h=1ed07d5e06211ed583251cd066271385d2310565;hb=8c79bbaf4135321c321b5599ada4a370e5dcb50d;hp=6427dd2601ab48bc967007a54c6037e6d98a1470;hpb=8802accf03b0bd9f063e5563ed769b23c6750fd8;p=lsp-test.git

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