From aeb002092c9beeec1e986b0de262a03718e01028 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Wed, 30 Oct 2024 20:45:37 +0000
Subject: [PATCH] make hunit exit 1 if there are errors

---
 tests/UnitTest.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/UnitTest.hs b/tests/UnitTest.hs
index 00414ec..a31c9bf 100644
--- a/tests/UnitTest.hs
+++ b/tests/UnitTest.hs
@@ -108,4 +108,6 @@ tests = TestList [
 main :: IO ()
 main = do
     result <- runTestTT tests
-    if failures result > 0 then Exit.exitFailure else Exit.exitSuccess
+    if (failures result > 0) || (errors result > 0)
+      then Exit.exitFailure
+      else Exit.exitSuccess