{-# OPTIONS_GHC -Wunused-imports #-}
module Language.Haskell.LSP.Test.Compat where
-import Control.Concurrent.Chan
-import Control.Monad.IO.Class
-import Data.Conduit
import Data.Maybe
+import System.IO
#if MIN_VERSION_process(1,6,3)
+# if MIN_VERSION_process(1,6,4)
+import System.Process hiding (getPid, cleanupProcess)
+import qualified System.Process (getPid, cleanupProcess)
+# else
import System.Process hiding (getPid)
import qualified System.Process (getPid)
+# endif
#else
import System.Process
import System.Process.Internals
#if MIN_VERSION_process(1,6,3)
getProcessID' = System.Process.getPid
#else
+#if MIN_VERSION_process(1,6,0)
getProcessID' (ProcessHandle mh _ _) = do
+#else
+ getProcessID' (ProcessHandle mh _) = do
+#endif
p_ <- readMVar mh
case p_ of
#ifdef mingw32_HOST_OS
_ -> return Nothing
#endif
-#if MIN_VERSION_conduit(1,3,0)
-chanSource :: MonadIO m => Chan o -> ConduitT i o m b
+cleanupRunningProcess :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO ()
+cleanupRunningProcess p@(_, _, _, ph) =
+ getProcessExitCode ph >>= maybe (cleanupProcess p) (const $ return ())
+
+cleanupProcess :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO ()
+#if MIN_VERSION_process(1,6,4)
+cleanupProcess = System.Process.cleanupProcess
#else
-chanSource :: MonadIO m => Chan o -> ConduitM i o m b
+cleanupProcess (mb_stdin, mb_stdout, mb_stderr, ph) = do
+
+ terminateProcess ph
+ -- Note, it's important that other threads that might be reading/writing
+ -- these handles also get killed off, since otherwise they might be holding
+ -- the handle lock and prevent us from closing, leading to deadlock.
+ maybe (return ()) hClose mb_stdin
+ maybe (return ()) hClose mb_stdout
+ maybe (return ()) hClose mb_stderr
+
+ return ()
#endif
-chanSource c = do
- x <- liftIO $ readChan c
- yield x
- chanSource c