1 import Language.Haskell.LSP.Test
2 import Language.Haskell.LSP.TH.DataTypesJSON
5 import Control.Monad.IO.Class
7 main = runSession "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 (Proxy :: Proxy DocumentSymbolRequest) TextDocumentDocumentSymbol (DocumentSymbolParams docId)
16 skipMany loggingNotification
18 response >>= liftIO . print