import Language.Haskell.LSP.Test.Recorded
import System.Directory
import System.Environment
+import Control.Monad.IO.Class
main = do
- file <- (head <$> getArgs) >>= canonicalizePath
- replay file
+ sessionFile <- (head <$> getArgs) >>= canonicalizePath
+ replay sessionFile $ do
+ x <- sendNextRequest
+ liftIO $ print x
+ y <- sendNextRequest
+ liftIO $ print y
\ No newline at end of file