From 668afa20a50e6a40896e782d8b4e7ef8406a14ba Mon Sep 17 00:00:00 2001 From: Rick Winfrey <rewinfrey@github.com> Date: Fri, 14 Dec 2018 17:02:41 -0800 Subject: [PATCH] Reflow `Method` data declaration and add `methodAccessibility` field --- src/Data/Syntax/Declaration.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Data/Syntax/Declaration.hs b/src/Data/Syntax/Declaration.hs index ce2d287ef..dbad7c371 100644 --- a/src/Data/Syntax/Declaration.hs +++ b/src/Data/Syntax/Declaration.hs @@ -72,7 +72,12 @@ instance FreeVariables1 Function where liftFreeVariables freeVariables f@Function{..} = foldMap freeVariables f `Set.difference` foldMap freeVariables functionParameters -data Method a = Method { methodContext :: ![a], methodReceiver :: !a, methodName :: !a, methodParameters :: ![a], methodBody :: !a } +data Method a = Method { methodContext :: [a] + , methodAccessibility :: a + , methodReceiver :: a + , methodName :: a + , methodParameters :: [a] + , methodBody :: a } deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, ToJSONFields1, Named1, Message1, NFData1) instance Eq1 Method where liftEq = genericLiftEq