assertFailure

Author: pepeiborra

plugins/hls-tactics-plugin/test/Utils.hs

@@ -130,7 +130,7 @@ mkGoldenTest eq tc occ line col input =
                     T.writeFile expected_name edited
                 expected <- liftIO $ T.readFile expected_name
                 liftIO $ E.try (edited `eq` expected)
-            _ -> return $ Left $ E.toException $ E.ErrorCall $ show actions
+            _ -> liftIO $ E.try $ assertFailure $ show actions
 
 retryAction :: Int -> Session (Either E.SomeException a) -> Session a
 retryAction n act = do