import Language.Haskell.LSP.Test
import Language.Haskell.LSP.TH.DataTypesJSON
-import Data.Proxy
import Control.Monad.IO.Class
main = runSession "hie --lsp" "test/recordings/renamePass" $ do
+ docItem <- openDoc "Desktop/simple.hs" "haskell"
- docItem <- getDocItem "Desktop/simple.hs" "haskell"
- docId <- TextDocumentIdentifier <$> getDocUri "Desktop/simple.hs"
-
- sendNotification TextDocumentDidOpen (DidOpenTextDocumentParams docItem)
-
- sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams docId)
+ sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams docItem)
skipMany loggingNotification