mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with old ghc

Browse source 
And add missing (unused) mappend instance
This commit is contained in:
Joey Hess 2016-01-13 12:18:20 -04:00
parent 0b24c0837a
commit d91eb24b59
Failed to extract signature
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Types/Test.hs
View file

@ -11,6 +11,8 @@ module Types.Test where
#ifdef WITH_TESTSUITE #ifdef WITH_TESTSUITE
import Test.Tasty.Options import Test.Tasty.Options
import Data.Monoid
import Prelude
#endif #endif
#ifdef WITH_TESTSUITE #ifdef WITH_TESTSUITE
@ -21,6 +23,9 @@ data TestOptions = TestOptions
instance Monoid TestOptions where instance Monoid TestOptions where
mempty = TestOptions mempty False mempty = TestOptions mempty False
mappend a b = TestOptions
(tastyOptionSet a <> tastyOptionSet b)
(keepFailuresOption a || keepFailuresOption b)
#else #else
type TestOptions = () type TestOptions = ()