1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

no strictness

This commit is contained in:
Timothy Clem 2019-12-10 14:34:13 -08:00
parent bd3c3eaf83
commit 5b34a0e196

View File

@ -133,7 +133,7 @@ instance Evaluatable Let where
-- AugmentedAssignment -- AugmentedAssignment
newtype AugmentedAssignment a = AugmentedAssignment { augmentedAssignmentTarget :: !a } newtype AugmentedAssignment a = AugmentedAssignment { augmentedAssignmentTarget :: a }
deriving (Diffable, Foldable, FreeVariables1, Functor, Generic1, Hashable1, ToJSONFields1, Traversable) deriving (Diffable, Foldable, FreeVariables1, Functor, Generic1, Hashable1, ToJSONFields1, Traversable)
instance Eq1 AugmentedAssignment where liftEq = genericLiftEq instance Eq1 AugmentedAssignment where liftEq = genericLiftEq