1 import Language.Haskell.LSP.Test
2 import Language.Haskell.LSP.TH.DataTypesJSON
5 import Control.Monad.IO.Class
7 main = runSession "hie --lsp" "test/recordings/renamePass" $ do
9 docItem <- getDocItem "Desktop/simple.hs" "haskell"
10 docId <- TextDocumentIdentifier <$> getDocUri "Desktop/simple.hs"
12 sendNotification TextDocumentDidOpen (DidOpenTextDocumentParams docItem)
14 sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams docId)
16 skipMany loggingNotification
18 anyResponse >>= liftIO . print