From c20539b56bdb7ae9b0c01a30e70215a6aeaa7bd1 Mon Sep 17 00:00:00 2001 From: jneira Date: Sun, 21 Jul 2019 01:35:03 +0200 Subject: [PATCH] Fix conditionals for process-1.6.3.0 --- src/Language/Haskell/LSP/Test/Compat.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Language/Haskell/LSP/Test/Compat.hs b/src/Language/Haskell/LSP/Test/Compat.hs index ddf4a78..a68f741 100644 --- a/src/Language/Haskell/LSP/Test/Compat.hs +++ b/src/Language/Haskell/LSP/Test/Compat.hs @@ -9,9 +9,14 @@ 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 import Control.Concurrent.MVar @@ -59,7 +64,7 @@ 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,3) +#if MIN_VERSION_process(1,6,4) cleanupProcess = System.Process.cleanupProcess #else cleanupProcess (mb_stdin, mb_stdout, mb_stderr, ph) = do -- 2.30.2