X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FReplay.hs;h=7d10763aab553ba19c0239df863fdafae057d9c3;hp=b2d54a39de2b0c561cfad93ccffed9e29d814d73;hb=bd2ac7da01645dc111a6912be661bc13b7f9340f;hpb=0f4d99b0d8a4530c395fb76dc4af68aacb4ce0c8

diff --git a/src/Language/Haskell/LSP/Test/Replay.hs b/src/Language/Haskell/LSP/Test/Replay.hs
index b2d54a3..7d10763 100644
--- 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