X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=README.md;h=f866ccfcc30af7ff000583314e73bae5813aaefb;hp=e58ae1734dc2a46658aefe80dc9aa4cf888945e5;hb=2fc7db80e8ec7bf37e1022b2e28c098eb390167c;hpb=d94df9a0302192037f92e9bdf4c99b92ce84fa4d 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)