github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 21:31:48 +03:00
Code Issues Projects Releases Wiki Activity

Reflow Method data declaration and add methodAccessibility field

Browse Source
This commit is contained in:
Rick Winfrey 2018-12-14 17:02:41 -08:00
parent 22102308a0
commit 668afa20a5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/Syntax/Declaration.hs
View File

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