Add root directory swapping

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

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