X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=example%2FRecorded.hs;fp=example%2FRecorded.hs;h=ce61cb1acfad9afd9a1ea8b65e3d00c1c946062e;hb=2560f39d64911bc247fa479868052545dca4f827;hp=63ee8775cad8dc8d9c1aacd715f704427223fc0a;hpb=287998584f8dc2ec1c1995733ca38d38d8d9f031;p=opengl.git

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