1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00

remove strict type

This commit is contained in:
Ayman Nadeem 2018-07-23 12:39:11 -04:00
parent f773cc7de0
commit 6ba948f42b

View File

@ -238,7 +238,7 @@ instance Show1 Lambda where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable Lambda instance Evaluatable Lambda
newtype LambdaBody a = LambdaBody { lambdaBodyExpression :: ![a] } newtype LambdaBody a = LambdaBody { lambdaBodyExpression :: [a] }
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Ord, Show, ToJSONFields1, Traversable) deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Ord, Show, ToJSONFields1, Traversable)
instance Eq1 LambdaBody where liftEq = genericLiftEq instance Eq1 LambdaBody where liftEq = genericLiftEq