@@ -2,6 +2,8 @@ module VerifyAttributes where
3import Verify
3import Verify
5+import Data.Semigroup((<>))
5import Graphics.Vty.Attributes(MaybeDefault(Default, KeepCurrent, SetTo))
7import Graphics.Vty.Attributes(MaybeDefault(Default, KeepCurrent, SetTo))
7instance Arbitrary a => Arbitrary (MaybeDefault a) where
9instance Arbitrary a => Arbitrary (MaybeDefault a) where