Exit the server and its listener properly

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

diff --git a/src/Language/Haskell/LSP/Test/Replay.hs b/src/Language/Haskell/LSP/Test/Replay.hs
index b2d54a39de2b0c561cfad93ccffed9e29d814d73..7d10763aab553ba19c0239df863fdafae057d9c3 100644 (file)
--- a/src/Language/Haskell/LSP/Test/Replay.hs
+++ b/src/Language/Haskell/LSP/Test/Replay.hs
@@ -65,6 +65,7 @@ replaySession serverExe sessionDir = do
                             def
                             fullCaps
                             sessionDir
+                            exitServer
                             (sendMessages clientMsgs reqSema rspSema)
     takeMVar passSema
     killThread sessionThread