From 04857dfc5bde657533dc042ec451abbf7ea3a334 Mon Sep 17 00:00:00 2001 From: Luke Lau Date: Sat, 27 Feb 2021 16:17:40 +0000 Subject: [PATCH] Fix exception throwing test --- test/Test.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" -- 2.30.2