X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;fp=test%2FTest.hs;h=e5bf5ec1da48d40765b62c86369dd2e06f3fa07e;hp=b87d2f617220745e0a6a996ffd869d205c5a8440;hb=04857dfc5bde657533dc042ec451abbf7ea3a334;hpb=b9c9c7d129f190c8b536e2e0090a98c47131abe3

diff --git a/test/Test.hs b/test/Test.hs
index b87d2f6..e5bf5ec 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -118,7 +118,7 @@ main = findServer >>= \serverExe -> hspec $ do
               selector _ = False
             in runSession serverExe fullCaps "test/data/renamePass" publishDiagnosticsNotification `shouldThrow` selector
         it "provides the correct types that were expected and received" $
-          let selector (UnexpectedMessage "STextDocumentRename" (FromServerRsp STextDocumentDocumentSymbol _)) = True
+          let selector (UnexpectedMessage "Response for: STextDocumentRename" (FromServerRsp STextDocumentDocumentSymbol _)) = True
               selector _ = False
               sesh = do
                 doc <- openDoc "Desktop/simple.hs" "haskell"