Rename Language.Haskell.LSP.Test => Language.LSP.Test

[lsp-test.git] / src / Language / Haskell / LSP / Test / Server.hs

diff --git a/src/Language/Haskell/LSP/Test/Server.hs b/src/Language/Haskell/LSP/Test/Server.hs
deleted file mode 100644 (file)
index e66ed0a..0000000
--- a/src/Language/Haskell/LSP/Test/Server.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-module Language.Haskell.LSP.Test.Server (withServer) where
-
-import Control.Concurrent.Async
-import Control.Monad
-import Language.Haskell.LSP.Test.Compat
-import System.IO
-import System.Process hiding (withCreateProcess)
-
-withServer :: String -> Bool -> (Handle -> Handle -> ProcessHandle -> IO a) -> IO a
-withServer serverExe logStdErr f = do
-  -- TODO Probably should just change runServer to accept
-  -- separate command and arguments
-  let cmd:args = words serverExe
-      createProc = (proc cmd args) { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe }
-  withCreateProcess createProc $ \(Just serverIn) (Just serverOut) (Just serverErr) serverProc -> do
-    -- Need to continuously consume to stderr else it gets blocked
-    -- Can't pass NoStream either to std_err
-    hSetBuffering serverErr NoBuffering
-    hSetBinaryMode serverErr True
-    let errSinkThread = forever $ hGetLine serverErr >>= when logStdErr . putStrLn
-    withAsync errSinkThread $ \_ -> do
-      f serverIn serverOut serverProc