projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Start work adding the session monad for replays
[lsp-test.git]
/
example
/
Recorded.hs
diff --git
a/example/Recorded.hs
b/example/Recorded.hs
index e267ff80ee9f9a1d76f45bb7f7953804c2cd1223..5d7cac1b946e0264a51e8aa27e1c4ad060fd888d 100644
(file)
--- a/
example/Recorded.hs
+++ b/
example/Recorded.hs
@@
-1,7
+1,12
@@
import Language.Haskell.LSP.Test.Recorded
import System.Directory
import System.Environment
import Language.Haskell.LSP.Test.Recorded
import System.Directory
import System.Environment
+import Control.Monad.IO.Class
main = do
main = do
- [client, server] <- ((take 2) <$> getArgs) >>= mapM canonicalizePath
- replay client server
+ sessionFile <- (head <$> getArgs) >>= canonicalizePath
+ replay sessionFile $ do
+ x <- sendNextRequest
+ liftIO $ print x
+ y <- sendNextRequest
+ liftIO $ print y
\ No newline at end of file