X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=example%2FRecorded.hs;h=63ee8775cad8dc8d9c1aacd715f704427223fc0a;hp=470bfdbb7bcba1a8cf1ac8bfba3e2d9937528772;hb=6930c3cb143fb7aca3f14ea865052ab79c386684;hpb=93bbb70d531238c46a28eb356a68c3648b88082f

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