X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=a0d4d0d4c210472ab2b62fdf4d6c356e6a5de917;hp=342d889f464d73ce9435c56148bc428c5a7844ae;hb=16501021ea92ae3c84dbfd99a3c2dd631685b49c;hpb=f9b6ee2d5743d4b6a5d2ca6f492d1e2e731fe678

diff --git a/test/Test.hs b/test/Test.hs
index 342d889..a0d4d0d 100644
--- 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