Start work on moving to new session file format

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

diff --git a/example/Recorded.hs b/example/Recorded.hs
index e267ff80ee9f9a1d76f45bb7f7953804c2cd1223..ce61cb1acfad9afd9a1ea8b65e3d00c1c946062e 100644 (file)
--- a/example/Recorded.hs
+++ b/example/Recorded.hs
@@ -3,5 +3,6 @@ import           System.Directory
 import           System.Environment
 
 main = do
-  [client, server] <- ((take 2) <$> getArgs) >>= mapM canonicalizePath
-  replay client server
+  [session, dir] <- (take 2 <$> getArgs) >>= mapM canonicalizePath
+  passed <- replay session dir
+  putStrLn $ if passed then "Passed" else "Failed"