github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

implement the right type classes for This

Browse Source
This commit is contained in:
Charlie Somerville 2018-07-24 16:23:44 +10:00
parent 2fbbd239e3
commit b364c6637a
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Syntax/Expression.hs
View File

@ -496,7 +496,7 @@ instance Show1 Super where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable Super
data This a = This
deriving (Diffable, Eq, Foldable, Functor, Generic1, Ord, Show, Traversable, FreeVariables1, Declarations1, ToJSONFields1, Hashable1)
deriving (Diffable, Eq, Foldable, Functor, Generic1, Ord, Show, Traversable, FreeVariables1, Declarations1, ToJSONFields1, Hashable1, Named1, Message1)
instance Eq1 This where liftEq = genericLiftEq
instance Ord1 This where liftCompare = genericLiftCompare

3
test/Data/Functor/Listable.hs
View File

@ -395,6 +395,9 @@ instance Listable1 Expression.Subscript where
instance Listable1 Expression.Member where
liftTiers tiers = liftCons2 tiers tiers Expression.Member
instance Listable1 Expression.This where
liftTiers tiers = cons0 Expression.This
instance Listable1 Literal.Complex where
liftTiers tiers = cons1 Literal.Complex