diff --git a/test/CorpusSpec.hs b/test/CorpusSpec.hs
index 16eddfe71..74a65a7a7 100644
--- a/test/CorpusSpec.hs
+++ b/test/CorpusSpec.hs
@@ -22,7 +22,7 @@ import Test.Hspec
 
 spec :: Spec
 spec = parallel $ do
-  describe "crashers crash" $ runTestsIn "test/crashers-todo/" ((`shouldThrow` anyException) . return . uncurry (==))
+  -- describe "crashers crash" $ runTestsIn "test/crashers-todo/" ((`shouldThrow` anyException) . return)
   describe "crashers should not crash" $ runTestsIn "test/crashers/" (uncurry shouldBe)
   describe "todos are incorrect" $ runTestsIn "test/diffs-todo/" (uncurry shouldNotBe)
   describe "should produce the correct diff" $ runTestsIn "test/diffs/" (uncurry shouldBe)