From 22db8bbbd85028f19eaef5fec70c12f7706771b1 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Mon, 5 Sep 2022 20:04:47 +0100
Subject: Much simpler

---
 test/Main.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/test/Main.hs b/test/Main.hs
index a5d03a3..9198143 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,5 @@ import Language (language)
 import System.Exit
 import Test.HUnit
 
-main :: IO Counts
-main = do
-  counts <- runTestTT $ test language
-  if errors counts + failures counts == 0 then exitSuccess else exitFailure
+main :: IO ()
+main = runTestTTAndExit $ test language
-- 
cgit v1.2.3