1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00

use classIdentifier to signal equivalence

This commit is contained in:
Ayman Nadeem 2017-10-31 14:52:04 -07:00
parent 4fea5c7c43
commit c872eda552

View File

@ -82,7 +82,10 @@ instance Show1 Variable where liftShowsPrec = genericLiftShowsPrec
data Class a = Class { classContext :: ![a], classIdentifier :: !a, classSuperclasses :: ![a], classBody :: ![a] }
deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Ord, Show, Traversable)
deriving (Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Ord, Show, Traversable)
instance Diffable Class where
equivalentBySubterm = Just . classIdentifier
instance Eq1 Class where liftEq = genericLiftEq
instance Ord1 Class where liftCompare = genericLiftCompare