diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Test.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Types/Test.hs b/Types/Test.hs index 2cf8dfbe2..eadf6d29a 100644 --- a/Types/Test.hs +++ b/Types/Test.hs @@ -11,6 +11,8 @@ module Types.Test where #ifdef WITH_TESTSUITE import Test.Tasty.Options +import Data.Monoid +import Prelude #endif #ifdef WITH_TESTSUITE @@ -21,6 +23,9 @@ data TestOptions = TestOptions instance Monoid TestOptions where mempty = TestOptions mempty False + mappend a b = TestOptions + (tastyOptionSet a <> tastyOptionSet b) + (keepFailuresOption a || keepFailuresOption b) #else type TestOptions = () |