Integrate Parsec transformer into Session monad

[lsp-test.git] / example / Main.hs

diff --git a/example/Main.hs b/example/Main.hs
index 5aaa2d13abee6adb516dcfece381e3cd215d1e50..d66e17e11075f0f018e7ee8a37eaf4410734212a 100644 (file)
--- a/example/Main.hs
+++ b/example/Main.hs
@@ -13,5 +13,6 @@ main = runSession "test/recordings/renamePass" $ do
   
   sendRequest (Proxy :: Proxy DocumentSymbolRequest) TextDocumentDocumentSymbol (DocumentSymbolParams docId)
 
-  syms <- getMessage :: Session DocumentSymbolsResponse
-  liftIO $ print syms
\ No newline at end of file
+  skipMany loggingNotification
+
+  response >>= liftIO . print
\ No newline at end of file