example/Recorded.hs

   1 import           Language.Haskell.LSP.Test.Recorded
   2 import           System.Directory
   3 import           System.Environment
   4 import           Control.Monad.IO.Class
   5
   6 main = do
   7   sessionFile <- (head <$> getArgs) >>= canonicalizePath
   8   replay sessionFile $ do
   9     x <- sendNextRequest
  10     liftIO $ print x
  11     y <- sendNextRequest
  12     liftIO $ print y