import System.Environment
main = do
- [client, server] <- ((take 2) <$> getArgs) >>= mapM canonicalizePath
- replay client server
+ [client, server] <- (take 2 <$> getArgs) >>= mapM canonicalizePath
+ passed <- replay client server
+ putStrLn $ if passed then "Passed" else "Failed"