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

Add an Unknown constructor for Accessibility

Browse Source
This commit is contained in:
Rick Winfrey 2018-12-17 17:51:30 -08:00
parent 394c8744d9
commit 5dab74f5ea
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,6 +74,7 @@ instance FreeVariables1 Function where
data Accessibility a = Public { unPublic :: a }
| Protected { unProtected :: a }
| Private { unPrivate :: a }
| Unknown
deriving (Diffable, Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, ToJSONFields1, Named1, Message1, NFData1)
instance Eq1 Accessibility where liftEq = genericLiftEq