X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=test%2FTest.hs;h=79bb30312668857a68322a99a3ad46a34896015f;hp=c6ef7e29e90ca44e6ad592e379aa7f3ef64579f7;hb=25c948d3bfc9f3876805377a0b923570bd0330a0;hpb=57bc413473ab2900cae76ce54c3d49a8937e3562

diff --git a/test/Test.hs b/test/Test.hs
index c6ef7e2..79bb303 100644
--- 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