X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=example%2FRecorded.hs;h=5d7cac1b946e0264a51e8aa27e1c4ad060fd888d;hb=1f4a12c49be0cb8640d60c21f6499c5567646fba;hp=470bfdbb7bcba1a8cf1ac8bfba3e2d9937528772;hpb=35925b4a5a5e24e1611431106fd8ddd7c89a4436;p=lsp-test.git

diff --git a/example/Recorded.hs b/example/Recorded.hs
index 470bfdb..5d7cac1 100644
--- a/example/Recorded.hs
+++ b/example/Recorded.hs
@@ -1,8 +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
-  passed <- replay client server
-  putStrLn $ if passed then "Passed" else "Failed"
+  sessionFile <- (head <$> getArgs) >>= canonicalizePath
+  replay sessionFile $ do
+    x <- sendNextRequest
+    liftIO $ print x
+    y <- sendNextRequest
+    liftIO $ print y
\ No newline at end of file