example/Main.hs

   1 import Language.Haskell.LSP.Test
   2 import Language.Haskell.LSP.TH.DataTypesJSON
   3
   4 import Control.Monad.IO.Class
   5
   6 main = runSession "hie --lsp" "test/recordings/renamePass" $ do
   7   docItem <- openDoc "Desktop/simple.hs" "haskell"
   8
   9   let params = DocumentSymbolParams docItem
  10   _ <- sendRequest TextDocumentDocumentSymbol params :: Session DocumentSymbolsResponse
  11
  12   skipMany loggingNotification
  13
  14   anyResponse >>= liftIO . print