1 import Language.Haskell.LSP.Test.Recorded
2 import System.Directory
3 import System.Environment
6 [client, server] <- (take 2 <$> getArgs) >>= mapM canonicalizePath
7 passed <- replay client server
8 putStrLn $ if passed then "Passed" else "Failed"