mirror of
https://github.com/github/semantic.git
synced 2024-12-01 00:33:59 +03:00
turn LambdaBody into a newtype
This commit is contained in:
parent
ccd7883574
commit
f773cc7de0
@ -238,7 +238,7 @@ instance Show1 Lambda where liftShowsPrec = genericLiftShowsPrec
|
||||
|
||||
instance Evaluatable Lambda
|
||||
|
||||
data LambdaBody a = LambdaBody { lambdaBodyExpression :: ![a] }
|
||||
newtype LambdaBody a = LambdaBody { lambdaBodyExpression :: ![a] }
|
||||
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Ord, Show, ToJSONFields1, Traversable)
|
||||
|
||||
instance Eq1 LambdaBody where liftEq = genericLiftEq
|
||||
|
Loading…
Reference in New Issue
Block a user