github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Remove the Arbitrary instance for Diff.

Browse Source
This commit is contained in:
Rob Rix 2015-12-11 16:07:11 -05:00
parent 0aa3154434
commit 3bb9e704bf
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Spec.hs
View File

@ -51,9 +51,6 @@ unDiff (ArbitraryDiff (a, b)) = interpret comparable (unTerm a) (unTerm b)
instance (Eq a, Eq annotation, Categorizable annotation, Arbitrary a, Arbitrary annotation) => Arbitrary (ArbitraryDiff a annotation) where instance (Eq a, Eq annotation, Categorizable annotation, Arbitrary a, Arbitrary annotation) => Arbitrary (ArbitraryDiff a annotation) where
arbitrary = ArbitraryDiff <$> ((,) <$> arbitrary <*> arbitrary) arbitrary = ArbitraryDiff <$> ((,) <$> arbitrary <*> arbitrary)
instance (Eq a, Eq annotation, Categorizable annotation, Arbitrary a, Arbitrary annotation) => Arbitrary (Diff a annotation) where
arbitrary = interpret comparable <$> (unTerm <$> arbitrary) <*> (unTerm <$> arbitrary)
data CategorySet = A | B | C | D deriving (Eq, Show) data CategorySet = A | B | C | D deriving (Eq, Show)
instance Categorizable CategorySet where instance Categorizable CategorySet where