Update README.md
authorLuke Lau <luke_lau@icloud.com>
Sat, 16 Jun 2018 14:50:38 +0000 (10:50 -0400)
committerGitHub <noreply@github.com>
Sat, 16 Jun 2018 14:50:38 +0000 (10:50 -0400)
README.md

index f866ccfcc30af7ff000583314e73bae5813aaefb..0af386e54c3a75c8be2f2af3af767ff6fb2693ce 100644 (file)
--- a/README.md
+++ b/README.md
@@ -7,9 +7,8 @@ runSession "session/root/dir" $ do
   
   skipMany notification
   
-  sendRequest (Proxy :: Proxy DocumentSymbolRequest)
-              TextDocumentDocumentSymbol
-              (DocumentSymbolParams doc)
+  sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams doc)
               
-  RspDocumentSymbols rspSymbols <- response
+  rspSymbols <- response :: DocumentSymbolsResponse
   let (List symbols) = fromJust (rspSymbols ^. result)
+```