example/Main.hs

   1 import Language.Haskell.LSP.Test
   2 import Language.Haskell.LSP.TH.DataTypesJSON
   3 import Data.Proxy
   4
   5 import Control.Monad.IO.Class
   6
   7 main = runSession "test/recordings/renamePass" $ do
   8
   9   docItem <- getDocItem "Desktop/simple.hs" "haskell"
  10   docId <- TextDocumentIdentifier <$> getDocUri "Desktop/simple.hs"
  11
  12   sendNotification TextDocumentDidOpen (DidOpenTextDocumentParams docItem)
  13
  14   sendRequest (Proxy :: Proxy DocumentSymbolRequest) TextDocumentDocumentSymbol (DocumentSymbolParams docId)
  15
  16   syms <- getMessage :: Session DocumentSymbolsResponse
  17   liftIO $ print syms