Fix exception throwing test

diff --git a/test/Test.hs b/test/Test.hs
index b87d2f617220745e0a6a996ffd869d205c5a8440..e5bf5ec1da48d40765b62c86369dd2e06f3fa07e 100644 (file)
--- 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"