From 22db8bbbd85028f19eaef5fec70c12f7706771b1 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Mon, 5 Sep 2022 20:04:47 +0100 Subject: Much simpler --- test/Main.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'test/Main.hs') 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