Start work adding the session monad for replays

[lsp-test.git] / example / Recorded.hs

diff --git a/example/Recorded.hs b/example/Recorded.hs
index e267ff80ee9f9a1d76f45bb7f7953804c2cd1223..5d7cac1b946e0264a51e8aa27e1c4ad060fd888d 100644 (file)
--- a/example/Recorded.hs
+++ b/example/Recorded.hs
@@ -1,7 +1,12 @@
 import           Language.Haskell.LSP.Test.Recorded
 import           System.Directory
 import           System.Environment
+import           Control.Monad.IO.Class
 
 main = do
-  [client, server] <- ((take 2) <$> getArgs) >>= mapM canonicalizePath
-  replay client server
+  sessionFile <- (head <$> getArgs) >>= canonicalizePath
+  replay sessionFile $ do
+    x <- sendNextRequest
+    liftIO $ print x
+    y <- sendNextRequest
+    liftIO $ print y
\ No newline at end of file