1
1
mirror of https://github.com/github/semantic.git synced 2024-12-30 02:14:20 +03:00

Add an Unknown constructor for Accessibility

This commit is contained in:
Rick Winfrey 2018-12-17 17:51:30 -08:00
parent 394c8744d9
commit 5dab74f5ea

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