1
1
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:
Ayman Nadeem 2018-07-23 12:35:49 -04:00
parent ccd7883574
commit f773cc7de0

View File

@ -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