From 25c948d3bfc9f3876805377a0b923570bd0330a0 Mon Sep 17 00:00:00 2001 From: Luke Lau Date: Thu, 28 Jun 2018 00:46:48 +0100 Subject: [PATCH] Fix tests --- test/Test.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.30.2