projects
/
lsp-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8a86e8d
)
Replace cleanupServer with functions avalilable in ghc <= 8.4
author
jneira
<atreyu.bbb@gmail.com>
Tue, 16 Jul 2019 11:16:05 +0000
(13:16 +0200)
committer
jneira
<atreyu.bbb@gmail.com>
Tue, 16 Jul 2019 11:16:05 +0000
(13:16 +0200)
src/Language/Haskell/LSP/Test/Session.hs
patch
|
blob
|
history
diff --git
a/src/Language/Haskell/LSP/Test/Session.hs
b/src/Language/Haskell/LSP/Test/Session.hs
index 8612148ce870a56b1e3cc1587567607dc60f4955..f85eed92cfef9ead64e32007c5422188787f63a6 100644
(file)
--- 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