+
+```haskell
+runSession "session/root/dir" $ do
+ doc <- openDoc "foo.hs" "haskell"
+
+ skipMany notification
+
+ sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams doc)
+
+ rspSymbols <- response :: DocumentSymbolsResponse
+ let (List symbols) = fromJust (rspSymbols ^. result)
+```