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

diff --git a/README.md b/README.md
index b42dfcf..f866ccf 100644
--- a/README.md
+++ b/README.md
@@ -1,2 +1,15 @@
-# haskell-lsp-test
+# 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)