From: Luke Lau <luke_lau@icloud.com>
Date: Wed, 27 Jun 2018 23:46:48 +0000 (+0100)
Subject: Fix tests
X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=commitdiff_plain;h=25c948d3bfc9f3876805377a0b923570bd0330a0

Fix tests
---

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