X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=example%2FRecorded.hs;fp=example%2FRecorded.hs;h=e267ff80ee9f9a1d76f45bb7f7953804c2cd1223;hp=dc4aa69fd32f739a82be4e599b72423e657be397;hb=311e9ea018ce1721cd79341243b79afdda85e2f1;hpb=9db776483f617de170b6798d5ea8a9f997c0d098

diff --git a/example/Recorded.hs b/example/Recorded.hs
index dc4aa69..e267ff8 100644
--- a/example/Recorded.hs
+++ b/example/Recorded.hs
@@ -3,5 +3,5 @@ import           System.Directory
 import           System.Environment
 
 main = do
-  file <- (head <$> getArgs) >>= canonicalizePath
-  replay file
+  [client, server] <- ((take 2) <$> getArgs) >>= mapM canonicalizePath
+  replay client server