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