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"