1 files changed, 8 insertions, 1 deletions
diff --git a/Types/Test.hs b/Types/Test.hs
index 35c4c3c23..2cf8dfbe2 100644
--- a/Types/Test.hs
+++ b/Types/Test.hs
@@ -14,7 +14,14 @@ import Test.Tasty.Options
 #endif
 
 #ifdef WITH_TESTSUITE
-type TestOptions = OptionSet
+data TestOptions = TestOptions
+	{ tastyOptionSet :: OptionSet
+	, keepFailuresOption :: Bool
+	}
+
+instance Monoid TestOptions where
+	mempty = TestOptions mempty False
+
 #else
 type TestOptions = ()
 #endif