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