example/Recorded.hs

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