X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FReplay.hs;fp=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FReplay.hs;h=dfa364b44c3600b4682eca2f94699f2fea16fad3;hb=bc52b000bf018360efbfa0fcd289329c70d2c77e;hp=2d5e4e612284ab6c3329a5aa7c36c548f45a1ef2;hpb=7f825c46ba76f90701a2f8f2a8c040d9bc2b6683;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test/Replay.hs b/src/Language/Haskell/LSP/Test/Replay.hs
index 2d5e4e6..dfa364b 100644
--- a/src/Language/Haskell/LSP/Test/Replay.hs
+++ b/src/Language/Haskell/LSP/Test/Replay.hs
@@ -29,9 +29,10 @@ import           Language.Haskell.LSP.Test.Messages
 -- makes sure it matches up with an expected response.
 -- The session directory should have a captured session file in it
 -- named "session.log".
-replaySession :: FilePath -- ^ The recorded session directory.
+replaySession :: FilePath -- ^ The filepath to the server executable.
+              -> FilePath -- ^ The recorded session directory.
               -> IO Bool
-replaySession sessionDir = do
+replaySession serverExe sessionDir = do
 
   entries <- B.lines <$> B.readFile (sessionDir </> "session.log")
 
@@ -52,6 +53,7 @@ replaySession sessionDir = do
 
   threadId <- forkIO $
     runSessionWithHandler (listenServer serverMsgs requestMap reqSema rspSema passVar)
+                          serverExe
                           sessionDir
                           (sendMessages clientMsgs reqSema rspSema)