From 64c4787d812faa4b1cb59b26e5e452efebeda62d Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Dec 2015 16:01:40 -0500 Subject: [PATCH] CategorySet is Categorizable. --- test/Spec.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/Spec.hs b/test/Spec.hs index c6191a2cc..0f50ed201 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,5 +1,6 @@ module Main where +import Categorizable import Diff import Patch import Range @@ -42,6 +43,12 @@ instance (Eq a, Eq annotation, Arbitrary a, Arbitrary annotation) => Arbitrary ( data CategorySet = A | B | C | D deriving (Eq, Show) +instance Categorizable CategorySet where + categories A = Set.fromList [ "a" ] + categories B = Set.fromList [ "b" ] + categories C = Set.fromList [ "c" ] + categories D = Set.fromList [ "d" ] + instance Arbitrary HTML where arbitrary = oneof [ Text <$> arbitrary,