X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest.hs;h=17a39c5a9702a9e2146514c65165220270ff516f;hb=edee40c4aba2607c652cace2da780c373612665f;hp=086a34c9257465d8ef284f66e5138486dbc91832;hpb=f5e627c1912bc66b7b8bb2c1a389b59fb34de883;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs
index 086a34c..17a39c5 100644
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@ -120,8 +120,8 @@ runSessionWithHandler :: (Handle -> Session ())
 runSessionWithHandler serverHandler serverExe rootDir session = do
   absRootDir <- canonicalizePath rootDir
 
-  let createProc = (shell serverExe) { std_in = CreatePipe, std_out = CreatePipe }
-  (Just serverIn, Just serverOut, Nothing, serverProc) <- createProcess createProc
+  let createProc = (shell serverExe) { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe }
+  (Just serverIn, Just serverOut, _, serverProc) <- createProcess createProc
 
   hSetBuffering serverIn  NoBuffering
   hSetBuffering serverOut NoBuffering