X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=example%2FMain.hs;h=cc74026531ead6183d384d9113fd001a8f60e510;hb=d8e460543b7cbc32550bed20d20ef4b13d6705a5;hp=29795fa22e52b76279d1ae98eca5c5f111eb72cd;hpb=7d0ddb8022d9cccc68a99008dd55c1d39ddda3e7;p=opengl.git diff --git a/example/Main.hs b/example/Main.hs index 29795fa..cc74026 100644 --- a/example/Main.hs +++ b/example/Main.hs @@ -1,17 +1,13 @@ 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) + let params = DocumentSymbolParams docItem + _ <- sendRequest TextDocumentDocumentSymbol params :: Session DocumentSymbolsResponse skipMany loggingNotification