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

Add Context' and Class syntax constructors

Browse Source
This commit is contained in:
Rick Winfrey 2018-06-01 16:23:59 -07:00
parent 4f34d71651
commit 9db3c596dc
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Language/Haskell/Syntax.hs
View File

@ -137,3 +137,23 @@ instance Show1 Deriving where liftShowsPrec = genericLiftShowsPrec
instance ToJSONFields1 Deriving
instance Evaluatable Deriving
newtype Context' a = Context' [a] deriving (Diffable, Eq, Foldable, Functor, Generic1, Hashable1, Mergeable, Ord, Show, Traversable, FreeVariables1, Declarations1)
instance Eq1 Context' where liftEq = genericLiftEq
instance Ord1 Context' where liftCompare = genericLiftCompare
instance Show1 Context' where liftShowsPrec = genericLiftShowsPrec
instance ToJSONFields1 Context'
instance Evaluatable Context'
data Class a = Class { classType :: a, classTypeParameters :: a } deriving (Diffable, Eq, Foldable, Functor, Generic1, Hashable1, Mergeable, Ord, Show, Traversable, FreeVariables1, Declarations1)
instance Eq1 Class where liftEq = genericLiftEq
instance Ord1 Class where liftCompare = genericLiftCompare
instance Show1 Class where liftShowsPrec = genericLiftShowsPrec
instance ToJSONFields1 Class
instance Evaluatable Class