From 1c033091f83bd159d4cda2b495e8619a7508dcbc Mon Sep 17 00:00:00 2001 From: jneira Date: Tue, 16 Jul 2019 13:16:05 +0200 Subject: [PATCH] Replace cleanupServer with functions avalilable in ghc <= 8.4 --- src/Language/Haskell/LSP/Test/Session.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Language/Haskell/LSP/Test/Session.hs b/src/Language/Haskell/LSP/Test/Session.hs index 8612148..f85eed9 100644 --- a/src/Language/Haskell/LSP/Test/Session.hs +++ b/src/Language/Haskell/LSP/Test/Session.hs @@ -222,7 +222,9 @@ runSessionWithHandles serverIn serverOut serverProc serverHandler config caps ro server = (Just serverIn, Just serverOut, Nothing, serverProc) serverFinalizer tid = finally (timeout (messageTimeout config * 1000000) (runSession' exitServer)) - (cleanupProcess server >> killThread tid) + (terminateProcess serverProc + >> hClose serverOut + >> killThread tid) (result, _) <- bracket serverLauncher serverFinalizer (const $ runSession' session) return result -- 2.30.2