Fix tests

diff --git a/test/Test.hs b/test/Test.hs
index c6ef7e29e90ca44e6ad592e379aa7f3ef64579f7..79bb30312668857a68322a99a3ad46a34896015f 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -29,7 +29,7 @@ main = hspec $ do
 
         noDiagnostics
 
-        rspSymbols <- documentSymbols doc
+        rspSymbols <- getDocumentSymbols doc
 
         liftIO $ do
           let (List symbols) = fromJust (rspSymbols ^. result)
@@ -102,7 +102,7 @@ main = hspec $ do
 
         noDiagnostics
 
-        rspSymbols <- documentSymbols doc
+        rspSymbols <- getDocumentSymbols doc
 
         let (List symbols) = fromJust (rspSymbols ^. result)
             fooSymbol = head symbols
@@ -148,7 +148,7 @@ main = hspec $ do
         skipMany anyNotification
         _ <- response :: Session ExecuteCommandResponse
 
-        contents <- documentEdit doc
+        contents <- getDocumentEdit doc
         liftIO $ contents `shouldBe` "main :: IO Int\nmain = return 42"
         noDiagnostics