Print last received message in timeout exceptions

[lsp-test.git] / test / Test.hs

diff --git a/test/Test.hs b/test/Test.hs
index 342d889f464d73ce9435c56148bc428c5a7844ae..a0d4d0d4c210472ab2b62fdf4d6c356e6a5de917 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -91,7 +91,9 @@ main = hspec $ do
                 getDocumentSymbols doc
                 -- should now timeout
                 skipManyTill anyMessage message :: Session ApplyWorkspaceEditRequest
-        in sesh `shouldThrow` (== Timeout)
+            isTimeout (Timeout _) = True
+            isTimeout _ = False
+        in sesh `shouldThrow` isTimeout
 
 
     describe "SessionException" $ do