X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=README.md;h=f866ccfcc30af7ff000583314e73bae5813aaefb;hb=2ed0dbaf1233ec79ed0801b406ae9fbf4e36e8a4;hp=e58ae1734dc2a46658aefe80dc9aa4cf888945e5;hpb=c449df9656ffb46d60ea5aba8537e5c10e02d388;p=opengl.git

diff --git a/README.md b/README.md
index e58ae17..f866ccf 100644
--- a/README.md
+++ b/README.md
@@ -1,2 +1,15 @@
 # haskell-lsp-test [![Build Status](https://travis-ci.com/Bubba/haskell-lsp-test.svg?branch=master)](https://travis-ci.com/Bubba/haskell-lsp-test)
 This is the functional testing framework for [haskell-ide-engine](https://github.com/haskell/haskell-ide-engine), and potentially any other Language Server Protocol server.
+
+```haskell
+runSession "session/root/dir" $ do
+  doc <- openDoc "foo.hs" "haskell"
+  
+  skipMany notification
+  
+  sendRequest (Proxy :: Proxy DocumentSymbolRequest)
+              TextDocumentDocumentSymbol
+              (DocumentSymbolParams doc)
+              
+  RspDocumentSymbols rspSymbols <- response
+  let (List symbols) = fromJust (rspSymbols ^. result)